r - ggplot中具有最小值和最大值的连续色标

Question

我想设置实现极端颜色的阈值，也就是说，给定从 color1 到 color2 的渐变和一个相应的变量z，我想定义 valuesc_min和 c_max ，使得值z超过的所有点c_max都具有 color2，并且值z低于的所有点c_min都具有颜色 color1。例子：

df <- data.frame(x=rnorm(10), y=rnorm(10), z=c(-100, rnorm(8), 100))
ggplot(df, aes(x=x, y=y, col=z)) + geom_point() + 
  scale_color_gradient2(low="blue", mid="white", high="red")

显然，这并不令人满意：大部分点都是白色的，只有极点才会有颜色。我更喜欢在 -3 和 3 之间进行渐变，并且这些值之外的所有内容都应该是蓝色或红色。

当然，我可以手动生成渐变并使用 scale_color_manual 设置点的颜色：

pal <- colorRampPalette(c("blue", "white", "red"))(17)
breaks <- seq(-3, 3, length.out=16)
cols <- pal[findInterval(df$z, breaks) + 1]
plot(df$x, df$y, pch=19, col=cols)

## or, in ggplot
ggplot(df, aes(x=x, y=y, col=factor(1:nrow(df)))) + 
   geom_point() + scale_color_manual(values=cols)

我怎么能在ggplot2中做到这一点？最好不要手动计算梯度？

标签： rggplot2

Answer 1

一种选择是设置比例的限制并将任何超出限制（超出范围/oob 值）的内容压缩到最接近的极值：

ggplot(df, aes(x=x, y=y, col=z)) + geom_point() + 
  scale_color_gradient2(low="blue", mid="white", high="red", 
                        limits = c(-3, 3), oob = scales::squish)

另一种选择是手动设置颜色应该出现在scale_color_gradient. "blue"并"red"重复以给出该颜色的极端 (0, 1) 和重新缩放的 -3/3 (0.485/0.515)。

ggplot(df, aes(x=x, y=y, col=z)) + geom_point() + 
  scale_color_gradientn(colours = c("blue", "blue", "white", "red", "red"),
                        values = c(0, 0.485, 0.5, 0.515, 1))