[英]ggplot2: add regression equations and R2 and adjust their positions on plot
Using df
and the code below 使用
df
和下面的代码
library(dplyr)
library(ggplot2)
library(devtools)
df <- diamonds %>%
dplyr::filter(cut%in%c("Fair","Ideal")) %>%
dplyr::filter(clarity%in%c("I1" , "SI2" , "SI1" , "VS2" , "VS1", "VVS2")) %>%
dplyr::mutate(new_price = ifelse(cut == "Fair",
price* 0.5,
price * 1.1))
ggplot(df, aes(x= new_price, y= carat, color = cut))+
geom_point(alpha = 0.3)+
facet_wrap(~clarity, scales = "free_y")+
geom_smooth(method = "lm", se = F)
I got this plot 我有这个情节
Thanks to @kdauria's answer to this question , I added regression equations and R2 to the plot as below 感谢@ kdauria对这个问题的回答,我将回归方程和R2添加到如下图中
source_gist("524eade46135f6348140")
ggplot(df, aes(x= new_price, y= carat, color = cut))+
stat_smooth_func(geom="text",method="lm",hjust=0,parse=TRUE)+
geom_point(alpha = 0.3)+
facet_wrap(~clarity, scales = "free_y")+
geom_smooth(method = "lm", se = F)
Now, I want to adjust the position of the regression equations and R2 to be at a specific place in each of the facets (for example at the bottom right in each facet "eg 0.2 y and 0.8 x). 现在,我想将回归方程的位置和R2调整到每个小平面中的特定位置(例如,在每个小平面的右下方,例如0.2 y和0.8 x)。
I tried to adjust the position through vjust
and hjust
but it didn't work. 我试图通过调整位置
vjust
和hjust
,但没有奏效。
Any suggestions would be highly appreciated. 任何建议都将受到高度赞赏。
Try stat_poly_eq
from package ggpmisc
: 尝试
stat_poly_eq
从包ggpmisc
:
library(ggpmisc)
formula <- y ~ x
ggplot(df, aes(x= new_price, y= carat, color = cut)) +
geom_point(alpha = 0.3) +
facet_wrap(~clarity, scales = "free_y") +
geom_smooth(method = "lm", formula = formula, se = F) +
stat_poly_eq(aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")),
label.x.npc = "right", label.y.npc = 0.15,
formula = formula, parse = TRUE, size = 3)
returns 回报
See ?stat_poly_eq
for other options to control the output. 有关控制输出的其他选项,请参阅
?stat_poly_eq
。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.