Question

是否有一种方法可以在leaflets addHeatmap函数中具有聚类颜色，可以说我们有一些变量值并将它们聚类为8个类别（请参见示例），有没有一种方法可以heatMap中也有8种颜色类别？我知道可以在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)

Answer 1

请参阅文档here中的gradient函数。

下面是一个使用其他调色板的示例：

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

传单热图中的聚类颜色

1 个答案: