小编Bri*_*ght的帖子

我使用ggplot2 facet在一列中绘制了两个面板,并希望在x = 4和8的面板上添加两条垂直线.以下是代码:

library(ggplot2)
library(gtable)
library(grid)

dat <- data.frame(x=rep(1:10,2),y=1:20+rnorm(20),z=c(rep("A",10),rep("B",10)))

P <- ggplot(dat,aes(x,y)) + geom_point() + facet_grid(z~.) + xlim(0,10)
Pb <- ggplot_build(P);Pg <- ggplot_gtable(Pb)

for (i in c(4,8)){
    Pg <- gtable_add_grob(Pg, moveToGrob(i/10,0),t=8,l=4)
    Pg <- gtable_add_grob(Pg, lineToGrob(i/10,1),t=6,l=4)
}

Pg$layout$clip <- "off"
grid.newpage()
grid.draw(Pg)

上面的代码修改自:ggplot,跨越facet的点之间的绘制线.和.

这个图有两个问题.首先,只显示了一条垂直线.它似乎moveToGrob只工作了一次..其次,显示的线在x = 4时并不准确.我没有找到Pb$panel$ranges变量,所以有没有办法可以纠正范围？非常感谢.