r - R中的自定义热图

Question

我需要创建自定义热图，如附图所示。它不同于传统的热图，因为我希望它使用两种颜色渐变，一种用于正值，一种用于负值。

如附图所示，我想要一种颜色来描述正值（或理想情况下高于某个阈值）的强度，另一种颜色来描述负值（或者低于阈值）的强度.

一点背景：我有一个二元选择集，一个选项是特定范围的数据的首选，而另一个选项是其余数据的首选。我想提供一个视觉辅助工具来描述哪个选项/选择对于不同的数据组合更好，但我希望视觉辅助工具还提供一个选项相对于另一个选项的“更好”程度。因此，颜色会告诉您选择哪个选项，而颜色的强度会告诉您该选项与其他选项相比要好多少。

Answer 1

这是一个使用示例ggplot2：

# sample data
df <- data.frame(expand.grid(x = 1:4, y = 1:4), v = runif(16, -10, 10))

# plot
ggplot(df, aes(x, y, fill = v, label = sprintf("%.1f", v))) + 
  geom_tile() + geom_text() +
  scale_fill_gradient2(low = "blue", high = "red")