改变箭头的箭头()

Question

我想知道是否可以更改用 arrows() 绘制的箭头的箭头。我查看了文档，但我发现我可以更改行尾但不能更改箭头？

plot(c(1:10))
arrows(0,0,10,10)

如有任何帮助，我们将不胜感激:)

Answer 1

如 ?arrow 中所述，您可以使用 length 和 angle 来更改标准箭头的外观。使用lwd你可以改变粗细，就像lines()中一样。 lty 也可以工作，尽管结果通常不太好。

一整套例子：

plot(c(0:10),type="n")

arrows(1,0,2,1,length=0.2,angle=20)
arrows(1,1,2,2,length=0.1,angle=40,lwd=3)

invisible(mapply(arrows,
        rep(c(3,6),each=4),rep(3:6,2),
        rep(c(5,8),each=4),rep(5:8,2),
        angle=seq(10,40,length.out=8),
        length=rep(seq(0.1,0.3,length.out=4),2),
        lwd=rep(1:4,each=2))
)

Answer 2

Karline Soetaert 的包 shape 对于此目的很有用：

library(shape)
plot(c(0,2),c(-2,2), col=NA)
Arrows(c(0,1.7),c(1.3,-1.8),c(0.8,1.1),c(1.2,-1), lwd=2)

默认是一个填充的、弯曲的箭头，看起来很漂亮：

Gotta love CRAN！

Answer 3

如果其他答案无法让您使用 arrows 函数对箭头进行足够的控制，您可以使用 TeachingDemos 包中的函数 my.symbols 。这允许您创建自己的自定义箭头并绘制它们。

同一包中的函数 ms.arrows 显示了执行此操作的一种方法：您可以修改该函数（或其他 ms.* 函数）以创建任何类型的您想要的箭头，然后使用 my.symbols 来绘制它们。

编辑

这是一个请求的示例：

library(TeachingDemos)

ms.arrowhead <- function(angle, ...) {
  xy <- cbind( c(-1, -0.75, -1, 0), 
               c(-0.5, 0, 0.5, 0) )
  xy <- xy %*% matrix(c(cos(angle),-sin(angle),sin(angle),cos(angle)), 2)
  xspline(xy, shape=c(0, -1, 0, 0), open=FALSE, ...)
}

plot(1:10, 1:10)
my.symbols(1:10, 1:10, ms.arrows, angle=seq(pi, 0, length=10),
           col='blue', adj=1, length=0, symb.plots=TRUE)
my.symbols(1:10, 1:10, ms.arrowhead, angle= seq(pi, 0, length=10), 
           col='green', inches=0.5, lwd=2, symb.plots = TRUE)

它使用xspline 函数绘制一个以弧形背面作为箭头的三角形。可以修改这些点以获得不同形状的箭头，或者可以对形状使用其他方法。