## @knitr polygon-layer
sample_data <- paste0(
"https://raw.githubusercontent.com/",
"uber-common/deck.gl-data/",
"master/website/sf-zipcodes.json"
)
properties <- list(
pickable = TRUE,
stroked = TRUE,
filled = TRUE,
wireframe = TRUE,
lineWidthMinPixels = 1,
getPolygon = ~contour,
getElevation = JS("d => d.population / d.area / 10"),
getFillColor = JS("d => [d.population / d.area / 60, 140, 0]"),
getLineColor = c(80, 80, 80),
getLineWidth = 1,
tooltip = "{{zipcode}}Population: {{population}}"
)
deck <- deckgl(zoom = 11, pitch = 25) %>%
add_polygon_layer(data = sample_data, properties = properties) %>%
add_basemap() %>%
add_control("Polygon Layer")
if (interactive()) deck
Run the code above in your browser using DataLab