example2.R

source("example1.R")


library(leaflet)

colors <- colorQuantile("viridis", NULL, 5)

leaflet(data) %>%
  addProviderTiles("CartoDB.DarkMatter") %>%
  addCircles(color = ~colors(TAVG), stroke=F, fillOpacity=0.8) %>% 
  addLegend(pal = colors, values = ~TAVG, opacity = 0.8)