有没有一种方法可以快速确定R中散点图绘制的注册表线的R平方？

我正在使用scatterplot绘制一个连续变量与另一个连续变量的对比图，但按一个因子进行分组。该因子有3个级别，因此我在散点图上得到了3条回归线

基本格式为：

scatterplot(y~x|b)

式中，b是三个级别的系数，b1、b2、b3

有没有一种方法可以在不执行以下操作的情况下获取或生成这些线的R平方值：

summary(lm(y~x[b1])$adj.r.squared
summary(lm(y~x[b2])$adj.r.squared
summary(lm(y~x[b3])$adj.r.squared

鉴于我的数据集，这种子集设置需要很长时间。然而，我也认为散点图本身并没有计算R平方值，只是找到并拟合线性最佳拟合线。不过，我希望我可能错了

也许我正在寻找一种方法来使用一种“by”函数，它可以一次构建多元线性回归，并且可以避免大量的子集。这与类似于

lm（y~x1+x2+x3）

的东西不同，因为我关心的多个级别都在一个变量内

---

请让我知道，如果有什么需要澄清，我很抱歉，如果这已经得到了答复。我找到了这篇文章，但更多的是关于如何让一个已经计算过的值直观地显示出来：

相关-对于未调整的r.sq，以下是等效的

sapply（拆分（mtcars，mtcars$gear），函数（x）cor（x$mpg，x$wt）^2）；sapply（拆分（mtcars，mtcars$gear），函数（x）摘要（lm（mpg~wt，x））$r.sq

，但执行第一个操作不会节省很多钱