들쭉날쭉 한 geom_segment가 부드럽게 나타나게합니다.

Question

geom_segment을 통해 플롯에 참 조선을 넣으려고합니다.

단순화 된 예 : 아래에서 볼 수 있듯이

tryCatch({ 
spaghetti_smooth_ref = qplot(age,T_self, data=sest,geom="blank") + 
    geom_smooth(method='lm',alpha=0.1, colour = "black") + 
    geom_segment(aes(x = 16, xend = 45,y = coef(us_ref)["(Intercept)"], yend = coef(us_ref)["(Intercept)"] + coef(us_ref)["age"] * 45), linetype = "solid", colour = "#5e8fb0", alpha = 0.5, size = 0.1) + 
    facet_wrap(~ country)+ 
    scale_linetype_discrete() 
}, error = function(e){warning(e)}) 

, geom_smooth()는 geom_segment()보다 원활 많이 렌더링됩니다.

어떻게 개선 할 수 있습니까? Mac의 Rstudio에서 그리고 PDF로 렌더링 할 때도 마찬가지입니다. 또한 원시 데이터와 geom_smooth()을 사용하고, geom_segment()을 사용한 후에는 똑같은 기울기를 플로팅했습니다. 여전히 차이가 있습니다.

Answer 1

당신은 abline하여 자신의 기준선을 정의 할 수 있습니까? 예 :

+ geom_abline(intercept = 48.5, slope = 0.1)