单个面板添加GEOM层分面积(Add a geom layer for a single panel

以从以下链接的提示比对两个地块与GGPLOT2 ，我能够绘制刻面对付共同的x轴2“Y”变量。 我想现在要做的就是能够将geom_point层添加到只有方面之一。 该层使用不同的数据集（D3）具有相同的结构为d1。 当我添加图层它就会在两个方面使用。 是否有可能层点只有上一面。

library(ggplot2)

x <- seq(1992, 2002, by = 2)
d1 <- data.frame(x = x, y = rnorm(length(x)))
xy <- expand.grid(x = x, y = x)
d2 <- data.frame(x = xy$x, y = xy$y, z = jitter(xy$x + xy$y))
d3 <- data.frame(x = x, y = 3+rnorm(length(x)))

d1$panel <- "a"
d2$panel <- "b"
d1$z <- d1$x

d <- rbind(d1, d2)

p <- ggplot(data = d, mapping = aes(x = x, y = y))
p <- p + facet_grid(panel ~ ., scale = "free")
p <- p + layer(data = d1,  geom = c( "line"), stat = "identity")
###*p <- p + layer(data = d3,  geom = c( "point"))* - This is the layer I intend to add only to the top panel

p <- p + layer(data = d2,  geom = "line", stat = "identity")
p

Answer 1:

只需添加panel列d3与您要添加设置点的面板。 你的情况：

d3$panel = "a"

p <- ggplot(data = d, mapping = aes(x = x, y = y))
p <- p + facet_grid(panel ~ ., scale = "free")
p <- p + layer(data = d1,  geom = c( "line"), stat = "identity")
p <- p + layer(data = d3,  geom = c( "point"))
p <- p + layer(data = d2,  geom = "line", stat = "identity")
p

这产生正确的输出：

如果在调用提到的列facet_grid不存在时，假定GGPLOT2它需要在所有方面要被打印。 当您指定panel ，GGPLOT2会考虑到这一点。

文章来源: Add a geom layer for a single panel in a faceted plot