几年前,有个帖子询问如何在ggplot图形上添加回归线方程和R2值,具体内容请参考以下链接:Adding Regression Line Equation and R2 on graph。最佳解决方案如下:
我正在使用这段代码,并且它运行得很好。但是,我想知道是否有可能使这段代码的R2值和回归线方程在不用逗号分隔的情况下单独显示出来。
而不是像这样:
而是像这样:
非常感谢您的帮助!
lm_eqn <- function(df){
m <- lm(y ~ x, df);
eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2,
list(a = format(coef(m)[1], digits = 2),
b = format(coef(m)[2], digits = 2),
r2 = format(summary(m)$r.squared, digits = 3)))
as.character(as.expression(eq));
}
p1 <- p + geom_text(x = 25, y = 300, label = lm_eqn(df), parse = TRUE)
我正在使用这段代码,并且它运行得很好。但是,我想知道是否有可能使这段代码的R2值和回归线方程在不用逗号分隔的情况下单独显示出来。
而不是像这样:
![Instead of like this](https://istack.dev59.com/EO4G2.webp)
![Something like this](https://istack.dev59.com/Pi85N.gif)
geom_text
中设置check_overlap = TRUE
,以防止ggplot
反复书写文本,从而导致模糊的文本。 - Tung