1
在 Adding individual arrows in multiple plots 我描述了由於數學咖啡已解決的問題。刻面:在多個圖中添加單獨的箭頭不起作用
我的問題是如何添加一個單一的箭頭只有一個方面。最近我安裝了R的新版本:
平臺把i386-pc-mingw32的
version.string [R版本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
有沒有人知道如何解決這個問題?