Відображення полігонів

Інтерактивні карти з leaflet у R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Побудова полігонів

shp %>% 
  leaflet() %>% 
  addTiles() %>% 
  addPolygons()

Усі ZIP-коди NC 1

Інтерактивні карти з leaflet у R

addPolygons()

  • weight — товщина меж у пікселях
  • color — колір полігонів
  • label — текст підказки при наведенні
  • highlight — параметри підсвічування при наведенні
shp %>% 
leaflet() %>% 
addTiles() %>% 
addPolygons(weight = 1,
            color = "grey",
            label = ~paste0("Total Income: " dollar(income)),
            highlight = highlightOptions(weight = 3, color = "red",
                                         bringToFront = TRUE))
Інтерактивні карти з leaflet у R

addPolygons()

Усі ZIP-коди NC 2

Інтерактивні карти з leaflet у R

Забарвлення числових даних

  • colorNumeric

    nc_pal <- colorNumeric(palette = "Blues", 
                           domain = high_inc@data$mean_income)
    
  • colorBin

    nc_pal <- colorBin(palette = "YlGn", bins = 5,
                       domain = high_inc@data$mean_income)
    
  • colorQuantile

    nc_pal <- colorQuantile(palette = "YlGn", n = 4, 
                            domain = high_inc@data$mean_income)
    
Інтерактивні карти з leaflet у R

colorNumeric()

nc_pal <- colorNumeric("Blues", domain = high_inc@data$mean_income)

previewColors(pal = nc_pal, values = c(seq(100000, 600000, by = 100000)))

previewColors()

Інтерактивні карти з leaflet у R

Картограма (choropleth)

nc_pal <- colorNumeric(palette = "Blues", 
                       domain = shp@data$mean_income)

shp %>% leaflet() %>% addTiles() %>% addPolygons(weight = 1, fillOpacity = 1, color = ~nc_pal(mean_income), label = ~paste0("Mean Income: ", dollar(mean_income)), highlight = highlightOptions(weight = 3, color = "red", bringToFront = TRUE))
Інтерактивні карти з leaflet у R

Картограма (choropleth)

Картограма доходів у NC

Інтерактивні карти з leaflet у R

Приклад картограми

ggplot(shp@data,
       aes(mean_income)) +
  geom_histogram()

Гістограма доходу

ggplot(shp@data, 
        aes(log(mean_income))) +
  geom_histogram()

Гістограма лог-доходу

Інтерактивні карти з leaflet у R

Логарифмування

Картограма лог-доходу в NC 1

Інтерактивні карти з leaflet у R

Давайте потренуємось!

Інтерактивні карти з leaflet у R

Preparing Video For Download...