如何在R中的图中的箭头上添加文本

Question

我使用R在图表中绘制了两个点，并用箭头连接点。 如何在箭头上添加文本。（固定文本） 我的代码如下：

x<-y<-1
new.x<-2
new.y<-2  
Text<-"Direction"
plot(x, y, xaxt='n',yaxt='n',cex=10,pch=19,xlim=c(0,4), ylim=c(0,3))
points(new.x,new.y,cex=10,pch=19)
arrows(x, y, new.x, new.y, col = "orange",lwd=4,lty=4)

在箭头上我想在箭头上添加一个Text对象（“Direction”）。

图像如下：

Answer 1

您是否看过使用text？

e.g，

x<-y<-1
new.x<-2
new.y<-2  
Text<-"Direction"
plot(x, y, xaxt='n',yaxt='n',cex=10,pch=19,xlim=c(0,4), ylim=c(0,3))
  points(new.x,new.y,cex=10,pch=19)
  arrows(x, y, new.x, new.y, col = "orange",lwd=4,lty=4)
  text(x=1.4, y=1.6, label=Text, srt=35)

根据您正在做的事情，可以通过编程方式整理文本的坐标和适当的角度。