R 更改箭头的箭头（）

我想知道是否可以更改用

箭头（）绘制的箭头的箭头。

。我查阅了文档，但我发现我可以更改一行的结尾，但不能更改箭头的结尾

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

---

非常感谢您的帮助：）

如

箭头所述，您可以使用
长度
和
角度
更改标准箭头的外观。使用
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))
)

如果其他答案不能让您使用箭头功能对箭头进行足够的控制，您可以使用
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)

库（教学演示）
arrowhead女士Karline Soetart的软件包可用于此目的：

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)

默认设置是一个填充的、弯曲的箭头，看起来很舒服：


一定要爱克兰
 您希望将箭头更改为什么？例如：我希望箭头是实心的，而不是开口的。在下面的例子中，我通过做lwd=8并缩短箭头的长度来达到这个目的；基本图形箭头不允许轻松修改，除了您提到的解决方法。Lattice graphics具有
面板.arrows（）
，它采用
类型
参数，如果需要晶格图，可以在其中指定
“打开”
或
“关闭”
。可惜这个功能不在base
arrows（）
中。谢谢，我想我误解了文档。感谢您提供示例代码。@Sarah:您也可以使用例如
lwd
来更改线条的厚度。请参阅修改后的代码。添加这些关于如何使用长度、角度和lwd的示例可能是
？箭头的有用补丁。你会考虑提交补丁吗？谢谢，正如我上面所说的，我已经创建了一个带有LWD＝8和长度较短的AROWHORD的箭头。你知道这些箭头是否也可能被用在GGPLOT2图中？这似乎在LogPrtStin中被打破了。你添加了一个如何使用它的样本？@ ReTrQueRe，我增加了一个例子。