R如何绘制带箭头的坐标轴

R绘制带箭头的坐标轴，两个参数需要提前设置

第一，xpd=NA，否则绘制箭头只会显示一半

xpd参数说明：A logical value or NA. If FALSE, all plotting is clipped to the plot region, if TRUE, all plotting is clipped to the figure region, and if NA, all plotting is clipped to the device region. 

第二，横纵坐标由于默认是多增加4%的区间，因此要么设置xaxs=“i" 和 yaxs ="i"，让坐标轴交于结束位置

或者直接用par()['usr'][[1]] 找出绘制的起点和终点

在R语言中，这两个参数的取值包括 5种，其中"r"是默认值，就是我们上边讲到的添加4%的一个距离，"i" 代表的行为是原始数据的最小值到最大值是多少，对应的坐标轴的起始和终止位置就是多少

举例：par(xpd=NA)

plot(c(1:10),c(1:10),type="l",bty="l",xlab="X",ylab="Y")

ord<-par("usr")

arrows(x0 = ord[1],y0=ord[3],x1=ord[2]*1.05,y1=ord[3])

arrows(x0 = ord[1],y0=ord[3],x1=ord[1],y1=ord[4]*1.05)

绘制

1、设置坐标轴带箭头

选择坐标轴，右击，设置坐标轴格式，线型，箭头设置，后端类型选择，OK

2、设置网格线

选择坐标轴，右击，添加主网格线，设置网格线格式，选择好，OK

origin不能自动把坐标轴加箭头，只能手动添加，方法如下：

用origin的工具栏的箭头工具，家湾箭头之后，将线条大小设为和坐标轴一样，然后位置调成和坐标轴重叠即可。

      

---