1

だから私はこのダミーコードを得ました:

require(latticeExtra)
x<- 1:19
y<- 19:1
zeros <- (1:19)*0
plt <- xyplot(x~y)
plt <- plt + layer(panel.arrows(zeros,zeros,x,y,length=.1,col=1:19))
plt

これにより、下の画像が生成されます。矢印が描かれているポイントから矢印を伸ばしたり縮めたりする方法を探しています。これは基本パッケージを使用して実行できると思いますが、ラティスで実行する方法があるかどうか知りたいです。

ここに画像の説明を入力

4

1 に答える 1

2

乗数を追加します。

x <- 1:19
y <- 19:1
zeros <- (1:19)*0
plot(y~x)
arrows(x0=zeros,y0=zeros,x1=x*2,y1=y*2,col=1:19)

ここに画像の説明を入力

于 2013-09-24T21:48:06.840 に答える