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

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)) 

Answer 2

与ggplot2

data <- data.frame(x = 1:10, y = 1:10) 
intercept <- 10 
slope <- -1 
ggplot(data, aes(x,y)) + geom_point(shape=1) + 
    geom_abline(intercept = intercept, slope = slope) + 
    geom_text(x=4, y=5, label="my label", angle=atan(slope)*180/pi) 

intercept <- 10 
slope <- -2 
ggplot(data, aes(x,y)) + geom_point(shape=1) + 
    geom_abline(intercept = intercept, slope = slope) + 
    geom_text(x=4, y=5, label="my label", angle=atan(slope)*180/pi) 

Answer 3

的增编类似的解决方案，以@ Andrie的回答是：即使你不用手动设置par("asp")，可以恢复目前的工作宽高比具有以下功能：

getCurrentAspect <- function() { 
    uy <- diff(grconvertY(1:2,"user","inches")) 
    ux <- diff(grconvertX(1:2,"user","inches")) 
    uy/ux 
} 

所以你可以创建你的情节：set asp <- getCurrentAspect();并继续@ Andrie的解决方案。

据我所知，这个功能某处在R生态系统的存在，但我还没有看到它......