在R晶格中延伸箭头

Question

所以我得到了这个虚拟代码：

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

生成下图。我正在寻找一种方法来延长或缩短箭头的距离。我相信这可以使用基础包来完成，但我很好奇是否有任何方法可以在格子中进行。

Answer 1

添加乘数：

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)