geom_pathで矢印を書く

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(aes(color=factor(id)),arrow=arrow(), ,lineend = "round") + geom_text()

矢印の角度や大きさは調整できるようなので詳細はgeom_pathを参照のこと。
http://docs.ggplot2.org/0.9.3.1/geom_path.html