plot(NA, xlim=c(0,5), ylim=c(0,5), xlab="X", ylab="Y")
vecs <- data.frame(vname=c("a","b","a+b", "transb"),
x0=c(0,0,0,2),y0=c(0,0,0,1), x1=c(2,1,3,3) ,y1=c(1,2,3,3),
col=1:4)
with( vecs, mapply("arrows", x0, y0, x1,y1,col=col) )
呼び出しに lwd=3 を追加すると、見た目が少し良くなりarrows
ます。このtext
関数はラベル付けを可能にし、'srt' パラメータで回転させることができます。
plot(NA, xlim=c(0,5), ylim=c(0,5), xlab="X", ylab="Y", lwd=3)
with( vecs, mapply("arrows", x0, y0, x1,y1,col=col,lwd=3) )
with(vecs, mapply('text', x=x1[1:3]-.1, y=y1[1:3]+.1,
labels=expression(list(a[1],a[2]), list(b[1],b[2]), list(a[1]+b[1],a[2]+b[2]) ) ))

list
呼び出し内の関数expression
は plotmathlist
呼び出しであり、通常の Rlist
とは異なり、 plotmath-が regularpaste
とは異なることに注意してくださいpaste
。親フレームでその引数を評価しようとはしません。そのためには、「内部」表現を処理するために使用する必要があるbquote
かsubstitute
、おそらく使用する必要があります。sapply