The top 5 museums in mexico city

Data plotted

The data was token form https://www.tripadvisor.com.mx/Attractions-g150800-Activities-c49-Mexico_City_Central_Mexico_and_Gulf_Coast.html

library(leaflet)
setwd("D:/Oscar/Documents/R/DATASETS")
df <-read.csv(file = "museos.csv", header = TRUE, sep = ",")
df
##                          Nombre      lat       lng
## 1 Museo Nacional De ntropologia 19.42554 -99.18510
## 2       Palacio de Bellas Artes 19.43481 -99.14417
## 3 Museo de Memoria y Tolerancia 19.43423 -99.14487
## 4         Museo de Arte Popular 19.43402 -99.14675
## 5         Museo de templo mayor 19.43486 -99.13216
df<- df %>% leaflet() %>% addTiles() %>% addMarkers()
## Assuming "lng" and "lat" are longitude and latitude, respectively
df