R 将几何图形文字的角度与打印线对齐

我想在ggplot2中用geom_line（）绘制一条直线，并用geom_text（）放置一个文本注释，以便文本与直线平行。有没有一种简单的方法来计算我应该为geom_text（）指定什么角度，这样文本将与直线平行

e、 g:

---

df根据tonytonov的建议，您可能首先尝试找出设备的纵横比，然后在绘图中使用此比值，并使用
coord_fixed（）
（）。然后，您可以计算文本元素所需的角度。
您可以添加一个使用arctan的工作示例吗？如果你成功地使这个工作，比方说，1:1的比率，我认为它应该是相对容易的调整为不同的纵横比。
df <- data.frame(x=c(1,2), y=c(150, 340))
ggplot(data=df, aes(x=x,y=y)) + geom_line() + 
    geom_text(label="label", x = mean(df$x), y=mean(df$y) + 1, angle = ???)