ggpmisc::stat_poly_eq 当一组没有足够的数据点时崩溃

Question

library(ggpmisc)
data <- mpg
table(data$class)
data$class[mpg$class=="2seater"] <- c(rep("2seater", 1), rep("compact", 4))
formula <- y ~ x + I(x^2)
ggplot(data, aes(x = displ, y = hwy, color = class)) +
  geom_point() +
  geom_smooth(method = "lm", formula = formula) +
  ggpmisc::stat_poly_eq(aes(label =  paste(stat(eq.label), stat(adj.rr.label), sep = "*\", \"*")),
               formula = formula, parse = TRUE)

上面的代码将生成一个没有公式和 r 平方标签的图。并且会给出这个警告：

Warning message:
Computation failed in `stat_poly_eq()`:
argument "x" is missing, with no default

问题源于2seater颜色组只有一个数据点。这还不够。但是它至少应该为其他组输出标签？

Answer 1

此问题现已在即将推出的 'ggpmisc' (0.4.0) 中得到解决，可以从 GitHub 安装。目前可以安装固定版本 remotes::install_github("aphalo/ggpp") 后跟 remotes::install_github("aphalo/ggpmisc").

一旦两个包都在 CRAN 更新 'ggpmisc' 就足够了。

ggpmisc::stat_poly_eq 当一组没有足够的数据点时崩溃

ggpmisc::stat_poly_eq crashes when one group does not have enough data points

r

ggpmisc