Learning leaflethex

df <- tibble(
  lat = rnorm(100),
  lng = rnorm(100),
  size = runif(100, 5, 20),
  color = sample(colors(), 100)
)

df2 <- tibble(
  lat =  42.9634 + rnorm(100),
  lng = -85.6681 + rnorm(100),
  size = runif(100, 5, 20),
  color = sample(colors(), 100)
)

leaflet(df, width = 600, height = 300) %>% 
  addTiles() %>% 
  add_hexbin(
    radius = 19, 
    lowEndColor = "yellow", 
    highEndColor="red") %>%
  add_hexbin(
    data = df2,
    radius = 19, 
    lowEndColor = "lightblue", 
    highEndColor="purple")