R包ggpmisc：在回归方程中给y加帽子

我正在使用

R

package

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

库（ggplot2）
图书馆（ggpmisc）
df我将关闭粘贴的
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=
的自动包含，然后将
hat（y）
粘贴到前面（带等号）。请注意，格式来自“帮助”页面

非常好@MrFlick。谢谢你的回答。如果您能指导如何更改解释变量的名称，我们将不胜感激。再次感谢。你能更具体一点吗？期望的输出是什么？如何更改回归方程中解释变量x的名称，比如说用收入代替回归方程中的x。您可以用
gsub（“x”，“收入”，“eq.label…”替换
。
。
或
gsub（“斜体（x）”，“收入”，“eq.label…”，fixed=T）