以下のプロットで発達の軌跡を描きたいと思います。つまり、点 2009 と 2010 を矢印付きの線 (2010 を指す) で接続し、点 2010 と 2011 を矢印付きの線 (2011 を指す) で接続する必要があります。 ) 等々 ...
これは両方のグループに適用されます。
これが私がこれまでにしたことです:
library(ggplot2)
x <- c(100, 200, 300, 200, 500, 320, 300, 50)
y <- c(100, 250, 600, 700, 60, 120, 200, 360)
t <- rep(seq(2009,2012),2)
z <- rep(c("A","B"),each=4)
d <- as.data.frame(cbind(z,t,x,y))
d <- d[order(d$z, d$t),]
ggplot(data = d, aes(x = x, y = y, colour = z, label=t)) +
geom_line(aes(group = z)) +
geom_point() +
geom_text()
私の2つの問題は、(1)「間違った」ポイントが接続されていることと(2)矢印の頭が欠落していることです。