如何在R绘图中设置text()的srt参数使文本角度匹配回归线角度

当然可以！要让text()生成的文本和回归线角度保持一致，核心是先算出回归线的视觉角度（因为坐标轴可能不是等比例的，直接用斜率算角度会有偏差），再把这个角度传给srt参数。下面是具体的实现步骤和代码示例：

1. 准备数据并绘制基础图形 #

先模拟一组带线性趋势的数据，绘制散点图并添加回归线：

# 模拟带线性趋势的数据
set.seed(123)
x <- 1:100
y <- 0.6*x + rnorm(100, 0, 7)

# 绘制散点图
plot(x, y, main = "文本与回归线平行示例")

# 拟合线性回归并添加回归线
lm_model <- lm(y ~ x)
abline(lm_model, col = "darkred", lwd = 2)

2. 计算回归线的视觉旋转角度 #

这里的关键是考虑绘图设备的坐标比例——默认情况下x轴和y轴的单位长度在屏幕上是不等的，直接用斜率算角度会导致文本和回归线视觉上不平行。我们需要先转换坐标比例，再计算角度：

# 提取回归线的斜率
slope <- coef(lm_model)[["x"]]

# 计算绘图设备的坐标比例（英寸单位下的y/x长度比）
x_inch <- diff(grconvertX(c(0,1), "user", "inches"))
y_inch <- diff(grconvertY(c(0,1), "user", "inches"))
aspect_ratio <- y_inch / x_inch

# 将斜率转换为视觉角度（转换为度，适配srt参数）
# atan计算的是逆时针角度，srt是顺时针角度，所以取负值调整方向
text_angle <- -atan(slope / aspect_ratio) * (180 / pi)

3. 添加与回归线平行的文本 #

选择回归线上的一个位置（比如数据中点），用计算好的角度添加文本：

# 选择回归线上的中点位置
mid_x <- mean(x)
mid_y <- predict(lm_model, newdata = data.frame(x = mid_x))

# 添加文本，srt参数传入计算好的角度
text(mid_x, mid_y, "与回归线平行的文本", 
     srt = text_angle, col = "blue", font = 2, cex = 1.2)

关键注意事项 #

• 如果你的绘图设置了等比例坐标轴（比如plot(..., asp = 1)），那么aspect_ratio等于1，可以简化角度计算为text_angle <- -atan(slope) * (180/pi)。
• 如果你使用ggplot2，逻辑是一样的：先拟合模型提取斜率，计算视觉角度，然后在geom_text()的angle参数中传入该角度即可。

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