This work shows the Taco and pizza restaurants and cafeterias located in the Cuajimalpa municipality in Ciudad de México. I got the data from Directorio Estadístico Nacional de Unidades Económicas (DENUE), you can download the data from DENUE site1.
Cleaning data:
activities<-c("Cafeterías, fuentes de sodas, neverías, refresquerías y similares","Restaurantes con servicio de preparación de pizzas, hamburguesas, hot dogs y pollos rostizados para llevar","Restaurantes con servicio de preparación de tacos y tortas")
dataRestaurants<-read.csv2("denue_00_72_1_csv/conjunto_de_datos/denue_inegi_72_1.csv",sep=",")
dataPartlyFiltered<- dataRestaurants %>% filter(municipio=="Cuajimalpa de Morelos") %>% select(nombre_act,latitud,longitud,www, nom_estab,municipio)
dataFiltered<-dataPartlyFiltered %>% filter(nombre_act %in% activities)
dataFiltered$lat<-as.numeric(dataFiltered$latitud)
dataFiltered$lng<-as.numeric(dataFiltered$longitud)
dataFiltered<-filter(dataFiltered,latitud>19)
dataFiltered$color<- ifelse(dataFiltered$nombre_act==activities[1],"blue",ifelse(dataFiltered$nombre_act==activities[2],"red","green"))
dataFiltered$nombre_act<-as.factor(dataFiltered$nombre_act)
dataFiltered %>%
leaflet() %>%
addTiles() %>%
addCircleMarkers(clusterOptions = markerClusterOptions(),color =dataFiltered$color ) %>%
addLegend(labels=activities,colors = c("blue", "red", "green"))## Assuming "lng" and "lat" are longitude and latitude, respectively