r - R包ggpmisc:在回归方程式中的y上放帽子

我正在使用R包ggpmisc。想知道如何在回归方程式中将y戴在帽子上，或者如何在图形的回归方程式中获得自定义响应和解释变量名称。

library(ggplot2)
library(ggpmisc)

df <- data.frame(x1 = c(1:100))
set.seed(12345)
df$y1 <- 2 + 3 * df$x1 + rnorm(100, sd = 40)

p <- ggplot(data = df, aes(x = x1, y = y1)) +
  geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) +
  stat_poly_eq(formula = y ~ x,
               aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")),
               parse = TRUE) +
  geom_point()
p

最佳答案

我将关闭粘贴的y的默认值，并建立自己的公式。例如

ggplot(data = df, aes(x = x1, y = y1)) +
  geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) +
  stat_poly_eq(formula = y ~ x, eq.with.lhs=FALSE,
      aes(label = paste("hat(italic(y))","~`=`~",..eq.label..,"~~~", ..rr.label.., sep = "")),
      parse = TRUE) +
  geom_point()

我们使用eq.with.lhs=FALSE关闭自动包含的y=，然后使用paste()将hat(y)放在最前面(带有等号)。请注意，格式来自?plotmath帮助页面。