R Notebook

Mapeo en R con Leaflet

library(raster)

## Loading required package: sp

library(leaflet)
gua <- shapefile("C:/Users/familiar/Downloads/gb2/COL_adm/COL_adm0.shp")
leaflet(data = gua) %>% addTiles() %>% addProviderTiles(providers$OpenStreetMap) %>% 
  addPolygons(fill = FALSE, stroke = TRUE, color = "#03F") %>% addLegend("bottomright", colors = "#03F", labels = "Fronteras de Colombia")

wrs2 <- shapefile("C:/Users/familiar/Downloads/gb2/COL_adm/COL_adm1.shp")
leaflet() %>% addTiles() %>% addProviderTiles(providers$OpenStreetMap) %>%   
  addPolygons(data = gua, fill = FALSE, stroke = TRUE, color = "#03F", group = "Study area") %>% 
  addPolygons(data = wrs2, fill = TRUE, stroke = TRUE, color = "#f93", 
              popup = paste0("Scene: ", as.character(wrs2$PATH_ROW)), group = "Landsat scenes") %>% 
  # add a legend
  addLegend("bottomright", colors = c("#03F", "#f93"), labels = c("Studio de area", "Division departamental")) %>%   
  # add layers control
  addLayersControl(
    overlayGroups = c("Study area", "Landsat scenes"),
    options = layersControlOptions(collapsed = FALSE)
  )