小编Har*_*vey的帖子

在这里,我想创建使用热图highcharter::hcharter(),其中小于-1应该是一种颜色(粉红色),-1至1为透明或白色,并且大于1应该是另一种颜色(紫色).

目前我已编写代码使用hchart()并用于color_stops更改颜色格式.但是当数据居中为0时,这种方法非常有效,但是当它不居中于0时,假设从-5到+7.5,白色/透明色将转移到1,如下图所示.

a1 <- rnorm(30,0,2)  
a2 <- rnorm(30,0,2)  
a3 <- rnorm(30,0,2)  
a4 <- rnorm(30,0,2)  
a <- cbind(a1,a2,a3,a4)
heatmap_matrix <- as.matrix(a)

library(highcharter) 
hchart(heatmap_matrix) %>%  
  hc_colorAxis(stops = color_stops(n = 3, colors = c("#FF1493", "white", "#800080")))

对于-5 to +7.5
-5到-1 之间的数据范围应该显示粉红色渐变颜色
-1到+1应该显示白色
+1到7.5应该显示紫色渐变颜色