# NOT RUN {
library(leaflet)
library(leaflet.extras2)
n <- 1000
df <- data.frame(lat = rnorm(n, 42.0285, .01),
lng = rnorm(n, -93.65, .01))
leaflet() %>%
addTiles() %>%
addHexbin(lng = df$lng, lat = df$lat,
options = hexbinOptions(
colorRange = c("red", "yellow", "blue"),
radiusRange = c(10, 20)
))
# }
Run the code above in your browser using DataLab