Palmeiras em Sevilla

library("dplyr")

palms <- readr::read_csv("Parques_y_Jardines_Palmera_Viario.csv", na = 'NULL')
names(palms) <- c("X", "Y", "xlo", "ylo", "spcode", "species", "perimeter", "height", "id")
palms$height <- as.numeric(palms$height)
palms <- dplyr::sample_n(palms, 200)
kable(head(palms[, c(1, 2, 6:8)]), format = "html")
X Y species perimeter height
-5.994111 37.38920 Phoenix dactylifera 0 0
-5.965663 37.39286 Yucca sp 35 3
-6.006939 37.37195 Phoenix dactylifera 210 22
-5.954917 37.38651 Washingtonia filifera 103 4
-5.981966 37.42935 Washingtonia filifera 105 6
-5.952360 37.36990 Washingtonia robusta 103 14

Source: http://sevilla-idesevilla.opendata.arcgis.com/datasets/778759ea5f3243dd91225605e79a66c6_0

Mapas Interativos com leaflet

library("leaflet")

leaflet(palms) %>%
  addTiles() %>%
  addMarkers(lng = ~X, lat = ~Y)

https://rstudio.github.io/leaflet

(Cheatsheet)

palm.icon <- makeIcon("https://img.icons8.com/ios-glyphs/30/000000/palm-tree.png")

leaflet(palms) %>%
  addTiles() %>%
  addMarkers(lng = ~X, lat = ~Y, icon = palm.icon)

Palm Tree icon by Icons8

leaflet(palms) %>%
  addTiles() %>%
  addMarkers(lng = ~X, lat = ~Y, icon = palm.icon, 
             clusterOptions = markerClusterOptions())  #<<
leaflet(palms) %>%
  addTiles() %>%
  addCircleMarkers(lng = ~X, lat = ~Y, 
                   radius = 5, stroke = FALSE, fillOpacity = 0.7)

Alterando os mapas base

Default: OpenStreetMap

leaflet(palms) %>%
  addTiles() %>%  #<<
  addCircleMarkers(lng = ~X, lat = ~Y, 
                   radius = 5, stroke = FALSE, fillOpacity = 0.7)
leaflet(palms) %>%
  addProviderTiles(provider = providers$Esri.WorldImagery) %>%   #<<
  addCircleMarkers(lng = ~X, lat = ~Y, radius = 5, stroke = FALSE, fillOpacity = 0.7)
leaflet(palms) %>%
  addProviderTiles(provider = providers$Stamen.Watercolor) %>%  #<<
  addCircleMarkers(lng = ~X, lat = ~Y, radius = 5, stroke = FALSE, fillOpacity = 0.7)
leaflet(palms) %>%
  addProviderTiles(provider = providers$CartoDB.Positron) %>%   #<<
  addCircleMarkers(lng = ~X, lat = ~Y, radius = 5, stroke = FALSE, fillOpacity = 0.7)
leaflet(palms) %>%
  addWMSTiles(baseUrl = "http://www.ign.es/wms-inspire/ign-base", #<<
              layers = "IGNBaseTodo-nofondo") %>%   #<<
  addCircleMarkers(lng = ~X, lat = ~Y, radius = 5, stroke = FALSE, fillOpacity = 0.7)