如何使用stat_cor在ggplot图上同时添加多个R^2值？

我试图同时显示多个R^2值。我可以让它显示3个较小的簇，但它不会显示整个R^2（如果其他簇无法显示，这是最重要的），控件也不会显示（我怀疑是因为所有的水损失都列为0）。如果不可能把所有的5个都加起来，我真的必须得到整个R^2。如有任何建议，将不胜感激

pen1<-pen %>%
ggplot(aes(x = Water.loss...., y = Pressure.required.for.penetration..g.mm2., color = Treatment)) +
  scale_x_continuous(breaks = c(0,.3,.5,.7))  +
  scale_colour_manual(name="Treatment", values =c("blue", "chartreuse3", "orange", "firebrick1"), 
                      labels = c("Control", "30%", "50%", "70%")) + 
  font("xy.text", color = "#666666") +
  coord_cartesian(ylim=c(0,150), xlim=c(-.05,1)) +
  rremove("ticks")  +
   geom_smooth(method="lm", se= F, size = 2, aes(linetype = Treatment, group = Treatment)) +
  geom_smooth(method = 'lm',size = 2, colour = 'black', se = F) +
  stat_cor(aes(label = paste(..rr.label.., sep = "~`,`~")), 
           label.sep = "\n", size = 6, label.x = .9) +
  rotate_y_text(45) +
  theme(axis.text.x = element_text(size = 20),
        axis.text.y = element_text(size = 20),
        axis.title.x = element_text(size = 30, color = "#666666"),
        axis.title.y = element_text(size = 30, color = "#666666"),
        text=element_text(family="Tw Cen MT Condensed Extra Bold", size=12),
        legend.text = element_text(colour="#666666", size = 20, face = "bold"),
        legend.title = element_text(colour="#666666", size=20, face="bold"),
        axis.line = element_line(size = 2, colour = "#666666")) +
  scale_fill_discrete(name = 'Species') +
  labs(x ="Water loss (%)", y = expression("Penetration Pressure (g/mm"^{2}~")")) +
  geom_point(size=5, color = "black") +
  geom_point(size=4, aes(colour = factor(Treatment))) 
pen1

pen1%
GG图（aes（x=水损失，y=穿透所需压力，g.mm2，颜色=处理））+
比例x连续（中断=c（0.3.5.7））+
比例颜色手册（名称=“治疗”，数值=c（“蓝色”、“黄绿色”、“橙色”、“耐火砖”），
标签=c（“控制”、“30%”、“50%”、“70%”）+
字体（“xy.text”，color=“#666666”）+
坐标笛卡尔（ylim=c（0150），xlim=c（-.05,1））+
移动（“滴答声”）+
geom_光滑（方法=“lm”，se=F，尺寸=2，aes（线型=治疗，组=治疗））+
几何平滑（方法='lm'，尺寸=2，颜色='黑色'，se=F）+
统计相关（aes（标签=粘贴（…rr.label..，sep=“~`，`~”）），
label.sep=“\n”，大小=6，label.x=.9）+
旋转文字（45）+
主题（axis.text.x=元素\文本（大小=20），
axis.text.y=元素\文本（大小=20），
axis.title.x=元素_文本（大小=30，颜色=“#666666”），
axis.title.y=元素_文本（大小=30，颜色=“#666666”），
text=元素\文本（family=“Tw cent MT contracted Extra Bold”，大小=12），
legend.text=element_text（color=“#666666”，size=20，face=“bold”），
legend.title=element_text（color=“#666666”，size=20，face=“bold”），
axis.line=元素_线（大小=2，颜色=#666666”））+
比例\填充\离散（名称=‘物种’）+
labs（x=”失水率（%）”，y=表达式（“渗透压力（g/mm“^{2}~”））+
几何点（尺寸=5，颜色=“黑色”）+
几何点（尺寸=4，不良事件（颜色=因子（处理）））
钢笔1

---

如果您将代码简化到说明问题所需的最低限度，这将有所帮助。例如，您并不真正需要主题代码（我很确定这与问题无关）。当x没有变化时，无法估计x和y之间的关系，因此第一组没有估计值。你能做的就是在虹膜数据上尝试一下。