r - 分面 : adding individual arrows in multiple plots does not work

Question

在 Adding individual arrows in multiple plots 我描述了一个已经通过 math.coffee 解决的问题。

我的问题是如何仅向一个方面添加单个箭头。最近我安装了新版本的R:

platform i386-pc-mingw32
version.string R version 2.14.2 (2012-02-29) ggplot2_0.9.0

这是代码示例

# data frame
xdf <- data.frame(x=rep(1:10,2)
                  ,y=c( 2*c(1:10)+rnorm(10,0,3), 4*c(1:10)+rnorm(10,0,5))
                  ,z=rep(c("A","B"),each=10)
                  )
xdf

# plot
ggplot with faceting
xp <- ggplot(xdf,aes(x=x,y=y)) +
   geom_line() +
   facet_grid(. ~ z)
xp

# location of the arrow: x=4, y=y+1 on the top of the first facet (A)
(f1x4 <- xdf[4,"y"]+1)

# add arrow and label
xp + geom_segment(aes(x=4,xend=4,y=f1x4+3,yend=f1x4,z='A')  # <-- see the z='A'
                  , arrow=arrow(length=unit(0.4,"cm")
                    )
                 ) +
  geom_text(aes(x=4,y=f1x4+5, label="a",z='A'))        # <-- see the z='A'

应该发生什么:箭头应该只在 A 方面创建。 发生了什么:在 A 面和 B 面都创建了箭头。

有人知道如何解决这个问题吗？

Answer 1

显然，更新 R 和 ggplot 后发生了变化。坐标数据必须与数据帧一起传送。下面是一个带有附加分组的示例:

xdf <- data.frame(x=rep(1:10,each=4)
              ,y=rep(1:10,each=4)*rep(1:4,10)  +rnorm(40,0,1)
              ,g=rep(c("R","S"),20)
              ,z=rep(c("A","A","B","B"),10)
              )
head(xdf)
# plot
xp <- ggplot(xdf,aes(x=x,y=y, group=g)) +
geom_line() +
facet_grid(. ~ z)
xp
# location of the arrow: x=4, y=y+1 on the top of the first facet (A)
(f1x4 <- subset(xdf,x==4 & g=="R" & z=="A")$y)
arrdf <- data.frame(x = 4, y = f1x4, z = "A", g = "R")   # create new data.frame for    annotations
# add arrow and label
xp + geom_segment(data=arrdf,aes(x=x,xend=x,y=y+3,yend=y,z=z,g=g)  # <-- see the z='A'
              , arrow=arrow(length=unit(0.4,"cm")
                )
             ) +
geom_text(data=arrdf,aes(x=x,y=y+4, label="a",z=z, g=g))