r - 如何使用渐变为 ggplot stat_density 的填充着色？

Question

我有一组数据，我想用 ggplot2's 绘制统计密度。数据范围从 -1000 到 1000，我希望绘图用填充作为渐变进行着色，从蓝色 (-1000) 到白色(零)和红色 (+1000)。我怎么做？作为一张图片，它会是这样的:

Answer 1

我认为您可以使用 stat_density 来完成此操作，但我将此作为练习留给您。您还可以在 ggplot2 之外计算密度。

无论如何，像这样使用 geom_segment 和 scale_colour_gradient2:

library(ggplot2)
DF <- data.frame(x=seq(-3, 3, 1e-2))
DF$y <- dnorm(DF$x)

ggplot(DF, aes(x=x, y=y)) +
  geom_segment(aes(xend=x, yend=0, colour=abs(x)^0.7*sign(x))) +
  geom_line() +
  scale_colour_gradient2(low=scales::muted("blue", l=60), 
                         mid=scales::muted("green", l=60), 
                         high=scales::muted("red", l=60))