R语言绘图添加箭头标记绘制连接两点的线段

Posted 2022-03-24 Z.Q.Feng

文章目录

• 一、基础命令
• 二、参数及其含义
• 绘图示例

---

一、基础命令

绘制箭头：

arrows(x0, y0, x1 = x0, y1 = y0, length = 0.25, angle = 30,
       code = 2, col = par("fg"), lty = par("lty"),
       lwd = par("lwd"), ...)

绘制线段：

segments(x0, y0, x1 = x0, y1 = y0,
         col = par("fg"), lty = par("lty"), lwd = par("lwd"),
         ...)

---

二、参数及其含义

参数	含义
x0，y0	要绘制的箭头起始点坐标
x1，y1	要绘制的箭头终点坐标
length	箭头边缘的长度（英寸）
angle	从箭头轴到箭头边缘的角度（箭头开合程度）
code	整数代码，决定要绘制的箭头类型
col，lty，lwd	图形参数，可能的向量（线条类型、线条和刻度颜色、线条宽度）
…	其他图形参数，见 par 函数

---

绘图示例

绘制一幅图像：

fit <- lm(weight ~ height, data = women)
plot(women$height, women$weight, 
     xlab = "Height (in inches)",
     ylab = "Weight (in pounds)")
abline(fit)

效果如下：

现在在图像插入一段文字描述与箭头：

text(68, 130, expression(hat(Y) == 3.45*X-87.52))
arrows(68, 133, 67, 140, col = 'blue')

效果如下：