This map is displayed using a Watercolor format and some of important places regarding my incipiet scientific research.
place <- c("CEDETEC", "UC Berkeley", "Journal of Cleaner Production", "Shaw Centre", "IEEE", "CONECTA", "OrcID", "ResearchGate", "MIT")
place_links <- c("<a href='https://www.gps-coordinates.net/street-view/@19.283621,-99.135488,h166,p2,z1'>Research center where I study</a>", "<a href= 'https://www.gps-coordinates.net/street-view/@37.874627,-122.258911,h166,p2,z1'>Doctoral Stay</a>", "<a href='https://www.sciencedirect.com/science/article/pii/S0959652620312142#bib39'>My First Published Journal Paper</a>", "<a href='https://www.gps-coordinates.net/street-view/@45.424197,-75.691773,h166,p2,z1'>My First International Conference</a>", "<a href='https://innovate.ieee.org/innovation-spotlight/smart-home-gamification'>International note regarding my research</a>", "<a href='https://tec.mx/es/noticias/ciudad-de-mexico/educacion/es-arquitecta-pero-su-pasion-la-llevo-la-ingenieria-y-recibe'>National note regarding my research</a>","<a href='http://orcid.org/0000-0001-5337-2527'>My OrcID</a>", "<a href='https://www.researchgate.net/profile/Isabel_Mendez_Garduno'>My Researchgate webpage</a>","<a href='https://www.gps-coordinates.net/street-view/@42.360680,-71.092445,h173,p3,z1'>My Nano Workshop</a>")
latitude <- c(19.283621, 37.874627, 19.283621, 45.424197, 36.1672559, 19.283621, 19.283621, 19.283621, 42.360761)
longitude <- c(-99.135488, -122.258911, -99.135488, -75.691773, -115.1485163, -99.135488, -99.135488, -99.135488, -71.092445)
df <- data.frame(place, place_links, latitude, longitude)
library(leaflet)
df %>%
leaflet() %>%
addTiles() %>%
addMarkers(lat=latitude, lng=longitude, popup=place_links, clusterOptions=markerClusterOptions) %>%
addProviderTiles(providers$Stamen.Watercolor)