ggplot：渐变填充高点和低点

Question

示例数据：

set.seed(123)
dtf <- as.data.frame(rnorm(n = 1000, mean = 0, sd = 0.02))
dtf = as.data.frame(dtf)
dtf = cbind(Obs = rownames(dtf), dtf)
names(dtf)[2] = "random"
head(dtf)

  Obs       random
1   1 -0.011209513
2   2 -0.004603550
3   3  0.031174166
4   4  0.001410168
5   5  0.002585755
6   6  0.034301300

简单点图：

gp = ggplot() +
  geom_point(data = dtf, aes(x = Obs, y = random))

gp

我想用 darkgreen 填充高点，用 darkred 填充低点。以下无效：

gp = ggplot() +
  geom_point(data = dtf, aes(x = Obs, y = random)) +
  scale_colour_gradient(low = "darkgreen", mid = "blue", high = "darkred")

gp

有什么建议吗？

Answer 1

您需要使用 aes 将颜色映射到变量并使用 mid，您需要 scale_color_gradient2。

ggplot(dtf, aes(Obs, random)) + 
  geom_point(aes(color = random)) + 
  scale_color_gradient2(low = "darkgreen", mid = "blue", high = "darkred")

Answer 2

您 ggplot 调用的结构不正确。为什么您的调用不起作用是因为您没有将颜色（通过 aes()）映射到任何变量。尝试

ggplot(dtf, aes(x = Obs, y = random, color = random)) +
  geom_point() +
  scale_colour_gradient2(low = "darkgreen", mid = "blue", high = "darkred")

ggplot：渐变填充高点和低点

ggplot: gradient fill high and low points

gradient

r

ggplot2