当存在负值时，highcharter 热图不遵循 hc_coloraxis

Question

你好。
我试图按照 hc_colorAxis 的停止参数中的设计将颜色设置为从 -1 到 1。 如果相关矩阵中没有负值，这可以正常工作。 但是，当存在负值时，它会重置为蓝色、白色和红色这些默认颜色。

这是带有数据的代码：

 library(BatchGetSymbols) library(tidyverse) library(highcharter) t1 = BatchGetSymbols(c("MSFT", "SPY", "SH"))[[2]] t2 = t1[,c("ticker", "ref.date", "ret.adjusted.prices")] t3 = na.omit(pivot_wider(t2, names_from = ticker, values_from = "ret.adjusted.prices")) t4 = cor(t3[,2:4]) hchart(type = "heatmap", t4) %>% hc_legend(layout = "vertical", verticalAlign = "middle", align = "right") %>% hc_colorAxis(min = -1, max = 1, stops = color_stops(3, c("#d51f3a", "#FFFFFF", "#5daa45")))

这是我得到的：

这就是我想要得到的（将 t1 中的“SH”替换为“AAPL”）：

任何帮助表示赞赏！

Answer 1

您如何看待遍历所有点，找到具有负 colorValue 的点然后更改它们的颜色？

喜欢这个演示： https : //jsfiddle.net/BlackLabel/7p0ufcma

然后你可以使用 Highcharts JS API。 您可以在此处查看有关如何执行此操作的便捷文章： https : //www.highcharts.com/blog/tutorials/working-with-highcharts-javascript-syntax-in-r/?fbclid=IwAR3UzztbrY4rdCbOw1W7DmSq4mWJswJZxIw-xOqGbsu0G02M2M

  chart.series[0].data.forEach(point => {
    if (point.colorValue < 0) {
      point.update({
        color: 'red'
      });
    }
  })