R - ggplot上的背景颜色沿对角线分割？

Posted 2023-02-25

【中文标题】R - ggplot上的背景颜色沿对角线分割？

【英文标题】：R - Background colour on ggplot split across a diagonal?

【发布时间】：2016-05-10 04:39:52

【问题描述】：

使用 R，库（ggplot2）

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

所以说 xlim(0,100), ylim(0,100) 和 geom_abline(intercept=100, slope=-1)。

如何使线上方的所有内容都显示为蓝色背景而下方为红色？

【参考方案1】：

library(ggplot2)

dat = data.frame(x=c(0,100), ymin=0, y=c(100,0), ymax=100)

ggplot(dat) +
  geom_ribbon(aes(x, ymin=y, ymax=ymax), fill="blue") +
  geom_ribbon(aes(x, ymin=ymin, ymax=y), fill="red") +
  geom_abline(aes(intercept=100, slope=-1)) +
  #geom_line(aes(x,y), lwd=1) +  # If you just want a line with the same extent as the data
  theme_bw()

类似地，对于更一般的曲线：

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

【讨论】：

你是个向导，@eipi10 感谢您的帮助。赞成并接受。