geom_pathはめったに使わないので矢印が書けるとは知らなかった。 library(ggplot2) smp <- data.frame(id=rep(1:5,each=2), group=rep(2008:2009,5), x=rnorm(10), y=rnorm(10)) library(grid) ggplot(smp, aes(x=x,y=y,group=id,label=group)) + geom_path…