Mapa interactivo que muestra todos los lugares fuera de Venezuela desde donde los venezolanos salimos a expresarnos el 17 de agosto de 2024 en contra de la dictadura de Nicolás Maduro y en apoyo al presidente electo Edmundo González Urrutia. Link: http://rpubs.com/darokun/yosaliporvenezuela

yosaliporvenezuela.R

library(tidyverse)
library(leaflet)
library(googlesheets4)

dat <- read_sheet("1q5Qo6j0fxpjJ9LtKXxkTya7-3YMTXh059c6rqonQP1A") %>% 
  filter(!is.na(pic))

icons <- awesomeIcons(
  icon = "star",
  iconColor = "white",
  library = "glyphicon",
  markerColor = "green"
)

dat %>% 
  leaflet() %>% 
  addProviderTiles(providers$Esri.WorldGrayCanvas, group = "ESRI World Canvas") %>%
  addProviderTiles(providers$Stamen.Watercolor, group = "Watercolor") %>%
  addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>%
  addLayersControl(baseGroups = c("ESRI World Canvas", "Watercolor", "Toner Lite")) %>%
  addTiles() %>% 
  addAwesomeMarkers(~lng, ~lat, icon = icons, popup = paste0(dat$city, ", ", dat$country, "<hr><img src = ", dat$pic, " width = 200>"))