ggplot2 : 왜 내 텍스트 주석이 올바르게 정렬되지 않습니까?

Question

annotate을 사용하여 직선 세그먼트에 라벨을 지정하려고합니다. 그러나 주석의 각도를 선의 기울기로 설정하면 주석이 선 세그먼트에 정렬되지 않습니다.

library(ggplot2) 

ggplot(data.frame(x = seq(0, 14, 0.1)), aes(x = x)) + 
    stat_function(fun = function(x) { 
    14 - x 
    }, geom = "line") + 
    theme_bw() + 
    annotate(
    geom = "text", 
    x = 7.5, y = 7.5, 
    label = "x + y = 14", 
    angle = -45) # NISTunits::NISTradianTOdeg(atan(-1)) 

이 제공 :

누군가가이 현상을 설명하는 데 도움이, 어떻게이 문제를 해결하기 위해, 즉, 선분과 동일한 각도를 가지고있는 주석을 정렬 할 수 있습니까?

Answer 1

나는 이것이 당신이 원하는 것을 줄 것이라고 믿습니다. 참조 용 Get width of plot area in ggplot2에 대한 답변을 참조하십시오.

#Plot so we can reference the viewport 
ggplot(data.frame(x = seq(0, 14, 0.1)), aes(x = x)) + 
    stat_function(fun = function(x) { 
    14 - x 
    }, geom = "line") 

#Get the currentVPtree and then convert the VP's height/width to inches 
current.vpTree() 
a <- convertWidth(unit(1,'npc'), 'inch', TRUE) 
b <- convertHeight(unit(1,'npc'), 'inch', TRUE) 

#Replot using the ratio of a/b to get the appropriate angle 
ggplot(data.frame(x = seq(0, 14, 0.1)), aes(x = x)) + 
    stat_function(fun = function(x) { 
    14 - x 
    }, geom = "line") + 
    theme_bw()+ 
    annotate(
    geom = "text", 
    x = 7.5, y = 7.5, 
    label = "x + y = 14", 
    angle = (atan(a/b) * 180/pi) + 270) 

우리는 기본적으로 뷰포트 너비/높이를 얻고 (우리는 삼각형의 양쪽이 있기 때문에 역 탄젠트), 행의 실제 각도가 무엇인지 계산하는 간단한 형상을 사용합니다.

결과 :