如何以与参考线本身相同的角度注释参考线？

我需要找到一种方法以与参考线本身相同的角度注释参考线。

以下语句将生成参考线及其上方的标签。但是，线的斜率可能会发生变化，我需要找到一种方法来确保注释始终处于相同的角度。

plot(1:10,1:10) 
abline(a=8, b=-1)
text(x=4, y=5, "reference line label", srt=-28)

R 有没有简单的方法？ 提前致谢

一种方法是设置绘图纵横比，使用asp参数，然后使用指定的角度计算角度asp:

asp <- 2

plot(1:10,1:10, asp=asp) 
abline(a=8, b=-1)
text(x=4, y=5, "reference line label", srt=180/pi*atan(-1*asp))

abline(a=4, b=-2)
text(x=1, y=3, "reference line label", srt=180/pi*atan(-2*asp))

设置不同的asp:

asp <- 0.8

plot(1:10,1:10, asp=asp) 
abline(a=8, b=-1)
text(x=4, y=5, "reference line label", srt=180/pi*atan(-1*asp))

abline(a=4, b=-2)
text(x=1, y=3, "reference line label", srt=180/pi*atan(-2*asp))