r - 传单热图中的聚类颜色

Question

有没有办法在leaflets addHeatmap函数中使用聚类颜色，假设我们有一些变量值并将它们聚类到 8 个类别（见示例），有没有办法在函数中也有 8 个颜色类别heatMap？我知道这可以在ggplot - geom_geom_tile

有没有办法在传单中复制它？

例子：

library(ggmap)
library(maptools)
library(ggplot2)


d = data.frame(
  pred_res = runif(2000, -2, 2),
  lat = runif(2000, 49.94, 50.18),
  lon = runif(2000, 14.22, 14.71)

)
#top&bottom coding and discreting pred_res....8
d$res_coded<-replace(d$pred_res,d$pred_res<(-1),8)
d$res_coded<-replace(d$res_coded,d$pred_res>=-1,7)
d$res_coded<-replace(d$res_coded,d$pred_res>=-0.4,6)
d$res_coded<-replace(d$res_coded,d$pred_res>=-0.1,5)
d$res_coded<-replace(d$res_coded,d$pred_res>=0,4)
d$res_coded<-replace(d$res_coded,d$pred_res>=0.1,3)
d$res_coded<-replace(d$res_coded,d$pred_res>=0.4,2)
d$res_coded<-replace(d$res_coded,d$pred_res>=1,1)

d %>% head
d$res_coded %>% table

library(leaflet)
library(leaflet.extras)

leaflet() %>% addProviderTiles("CartoDB.Positron") %>% 
  addHeatmap(lng = d$lon, lat = d$lat, intensity = d$res_coded)

标签： rleafletmaps

Answer 1

请在此处gradient查看文档中的功能。

这是一个使用不同调色板的示例：

leaflet() %>% addProviderTiles("CartoDB.Positron") %>% 
  addHeatmap(lng = d$lon, lat = d$lat, intensity = d$res_coded, gradient="RdYlGn")