如何以與參考線本身相同的角度註釋參考線？

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生態系統的存在，但我還沒有看到它......