hexagon_centroids <- system.file("sample-data/centroids.csv", package = "deckgl") %>%
read.csv()
deck <- deckgl(zoom = 11, pitch = 35) %>%
add_column_layer(
data = hexagon_centroids,
diskResolution = 12,
getPosition = ~lng + lat,
getElevation = ~value,
getFillColor = "@=[48, 128, value * 255, 255]",
elevationScale = 5000,
radius = 250,
extruded = TRUE,
tooltip = "Value: {{value}}"
) %>%
add_control("Column Layer", "bottom-left") %>%
add_basemap()
if (interactive()) deck
Run the code above in your browser using DataLab