Map Created Using R Markdown and Leaflet

Executive Summary

Let’s us look at the World’s 50 Best Restaurants for 2018 (sourced from Kaggle)

Load Package

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.3

library(htmltools)

Load Data

setwd('C:/Users/huaig/Desktop/Nick/Coding/Coursera/Johns Hopkins University/9. Developing Data Products/Week 2/')
data <- read.csv(file = "The Worlds 50 Best Restaurants 2018.csv", header = TRUE, sep = ',')
data_df <- data.frame(Ranking = data$Ranking, Name = data$Name, 
                      City = data$City, Country = data$Country,
                      Latitude = data$Latitude, 
                      Longitude = data$Longitude)

Plot Map

my_map <- data_df %>% leaflet() %>% addTiles() %>% 
        addMarkers(popup = paste('<br>Country: ', 
                                 htmlEscape(data_df$Country),
                                 '<br>City: ',
                                 htmlEscape(data_df$City),
                                 '<br>Restaurant: ',
                                 htmlEscape(data_df$Name),
                                 '<br>Ranking: ',
                                 formatC(data_df$Ranking, format = 'd',
                                         big.mark = ',')))

## Assuming "Longitude" and "Latitude" are longitude and latitude, respectively

my_map