用ggplot绘制多个方块

Question

我想改变成ggplot的背景颜色。我想要实现的是如下所示的情节。我已经试过geom_ribbon但我只能定义ymin和ymax。这使我只能创建两个正方形。

我至今使用的代码：

df <- data.frame(x = rnorm(10), y = rnorm(10)) 

ggplot(df) + 
geom_point(aes(x, y)) + 
geom_ribbon(aes(x = x, ymin = min(y), ymax = 0), fill = "red", alpha = .5) + 
geom_ribbon(aes(x = x, ymin = min(0), ymax = max(y)), fill = "blue", alpha = .5) 

这是我想要得到的结果是：

ggplot example http://i50.tinypic.com/25j8p5z.png

感谢您的时间。

Answer 1

你的答案变型，如果你想要的“背景”的颜色，一路去到图形的边缘，不仅对数据的极端：

ggplot(df) + 
    geom_rect(xmin = -Inf, xmax = 0, ymin = -Inf, ymax = 0, fill = "red") + 
    geom_rect(xmin = 0, xmax = Inf, ymin = -Inf, ymax = 0, fill = "blue") + 
    geom_rect(xmin = 0, xmax = Inf, ymin = 0, ymax = Inf, fill = "green") + 
    geom_rect(xmin = -Inf, xmax = 0, ymin = 0, ymax = Inf, fill = "yellow") + 
    geom_point(aes(x, y), size = 5) 

---

编辑：透明度

添加除了使用geom_rect，即使没有参考原始数据帧，也为df（在这种情况下为10次）的每一行绘制了一个矩形的问题，是“工作的”。设置alpha=0.01表明存在透明度，但是在预期水平的十分之一处。该方法应该是用矩形进行注释;注释只画出一个实例GEOM的，每个原始数据帧的行不是一个：

ggplot(df) + 
    annotate("rect", xmin=-Inf, xmax=0, ymin=-Inf, ymax=0, fill="red", alpha=0.5) + 
    annotate("rect", xmin=0, xmax=Inf, ymin=-Inf, ymax=0, fill="blue", alpha=0.5) + 
    annotate("rect", xmin=0, xmax=Inf, ymin=0, ymax=Inf, fill="green", alpha=0.5) + 
    annotate("rect", xmin=-Inf, xmax=0, ymin=0, ymax=Inf, fill="yellow", alpha=0.5) + 
    geom_point(aes(x, y), size=5) 

Answer 2

从乔兰的评论后。答案：

ggplot(df) + 
    geom_rect(aes(xmin = min(x), xmax = 0, ymin = min(y), ymax = 0), fill = "red") + 
    geom_rect(aes(xmin = min(0), xmax = max(x), ymin = min(y), ymax = 0), fill = "blue") + 
    geom_rect(aes(xmin = min(0), xmax = max(x), ymin = 0, ymax = max(y)), fill = "green") + 
    geom_rect(aes(xmin = min(x), xmax = 0, ymin = 0, ymax = max(y)), fill = "yellow") + 
    geom_point(aes(x, y), size = 5)