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")