r - R パッケージ ggpmisc: 回帰式で y に帽子をかぶる

Question

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

Answer 1

貼り付けられているデフォルト値をオフにして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ヘルプページからのものであることに注意してください。