R - ggplot上的背景颜色在对角线上分开？

Question

使用R，库（ggplot2）

我有一个完美的正方形ggplot。从左上角到右下角，我有一条线。

所以说xlim（0,100），ylim（0,100）和geom_abline（截距= 100，斜率= -1）。

如何让线条上方的所有内容都显示为蓝色背景并且位于红色下方？

Answer 1

x=seq(0,100,0.1)
dat = data.frame(x=x, ymin=0, y=2*x + 3*x^2 - 0.025*x^3)
dat$ymax=max(dat$y)

ggplot(dat) +
  geom_ribbon(aes(x, ymin=y, ymax=ymax), fill="blue") +
  geom_ribbon(aes(x, ymin=ymin, ymax=y), fill="red") +
  geom_line(aes(x,y), colour="yellow", lwd=1) +
  theme_bw()

类似于更一般的曲线：

<optgroup label="Time Series">
    <option value="TIME_SERIES">TIME SERIES</option>
</optgroup>