r - 如何以与引用线本身相同的角度注释引用线？

Question

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

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

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

有没有一种简单的方法可以在 R 中做到这一点？
提前致谢

Answer 1

一种方法是设置绘图纵横比，使用 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))