如何为curve绘制的垂直abline标注x截距（无需复杂绘图包）

当然可以用Base R原生函数实现，不用额外复杂绘图包，核心是借助text()函数配合绘图区域坐标定位来添加文本，具体步骤如下：

• 先调整绘图边距，给x轴下方留出足够空间放置文本：

  par(mar = c(6, 4, 4, 2) + 0.1)  # mar参数顺序为：下、左、上、右，增大下方边距
  

• 绘制基础曲线和垂直abline，同时记录所有垂直直线的x截距值：

  # 示例：绘制正态分布曲线
  curve(dnorm(x), from = -2, to = 6, xlab = "X轴", ylab = "Y轴", main = "带垂直截距标注的曲线")
  
  # 定义垂直abline的x截距
  x_intercepts <- c(1, 3, 5)
  # 绘制垂直参考线
  abline(v = x_intercepts, col = "red", lty = 2)
  

• 在x轴下方添加截距数值：
  用par("usr")获取绘图区域的坐标范围（返回长度为4的向量：c(x左边界, x右边界, y下边界, y上边界)），计算文本的y轴位置后，调用text()添加标注：

  # 计算文本的y坐标（位于x轴下方，距离轴的高度为y轴范围的5%）
  y_pos <- par("usr")[3] - 0.05 * (par("usr")[4] - par("usr")[3])
  
  # 添加截距文本
  text(x = x_intercepts, y = y_pos, labels = x_intercepts, 
       col = "red", cex = 0.8, adj = c(0.5, 1))
  

如果需要更精准的位置调整，可以修改y_pos里的比例（比如把0.05改成0.08），或者调整adj参数控制文本的对齐方式。

内容的提问来源于stack exchange，提问作者GuyMatz