所以我得到了这个虚拟代码:
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
这会产生下面的图像。我正在寻找一种方法来延长或缩短箭头远离它们被绘制的点。我相信这可以使用基本包来完成,但我很好奇是否有任何方法可以在 lattice 中做到这一点。