Comece agoraComece grátis

Mapa final

Como nosso mapa do leaflet é construído em camadas, podemos adicionar diferentes tipos de informação ao mesmo mapa base (por exemplo, pontos e polígonos). Ao adicionar novas camadas baseadas em dados diferentes a um objeto leaflet existente, você precisa especificar o argumento data na função que cria a nova camada, para substituir os dados que são passados pelo encadeamento de funções.

m4  %>% 
    addCircleMarkers(data = private)

Vamos combinar nossos mapas de pontos e de polígonos para adicionar uma camada que destaque os CEPs mais ricos dos Estados Unidos ao nosso mapa com todas as faculdades do país. Para começar, a última versão em camadas do mapa das faculdades, m4, já foi impressa para você e o SpatialPolygonsDataFrame wealthy_zips está pré-carregado.

Depois de criar o mapa final, reserve alguns minutos para explorar (e curtir) seu mapa do leaflet!

Este exercicio faz parte do curso

Mapas Interativos com leaflet em R

Ver curso

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# Add polygons using wealthy_zips
final_map <- ___ %>% 
   addPolygons(data = ___, weight = 1, fillOpacity = .5, color = "Grey",  group = "Wealthy Zip Codes", 
              label = ~paste0("Mean Income: ", dollar(mean_income)),
              highlight = highlightOptions(weight = 5, color = "white", bringToFront = TRUE)) %>% 
    # Update layer controls including "Wealthy Zip Codes"
    addLayersControl(baseGroups = c("OSM", "Carto", "Esri"), 
                         overlayGroups = c("Public", "Private", "For-Profit", ___))
Editar e Executar Código