如何在 R 中的散点图矩阵的每个图中获得拟合线?

How do I get fitted lines in each plot of a scatterplot matrix in R?

我知道如何对单个图使用 'abline' 函数,但我如何获得散点图矩阵,该矩阵也会在每个图中显示拟合线。

在汽车包中可以使用'scatterplotMatrix'功能。

下面是一个使用该包中的 Prestige 数据集的示例: 图书馆(车) 散点图矩阵(~声望+收入+教育+女性,数据=声望)