r - 当一组没有足够的数据点时，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”就足够了。