如何在R语言生成的散点图矩阵中添加拟合回归线

问题原因 #

你使用plot(insurance)生成散点图矩阵时，实际调用的是base R的pairs()函数，abline(insurance,col="red")无效有两个核心原因：

• abline()不能直接接收数据集作为入参，需要传入线性回归拟合lm()的返回结果，或者单独指定截距、斜率参数
• 散点图矩阵包含多个子图，abline()默认仅作用于最后一个激活的子图，无法批量适配所有子图的拟合结果

实现方案 #

方案1：基于base R实现（无需额外安装包） #

自定义面板函数，在每个子图生成时同步绘制散点和回归线：

# 自定义绘图面板：同时绘制散点与线性拟合线
panel_lm <- function(x, y, ...) {
  points(x, y, ...)
  abline(lm(y ~ x), col = "red")
}
# 生成带回归线的散点图矩阵
pairs(insurance, panel = panel_lm)

方案2：基于GGally包实现（可拓展性更强） #

如果接受使用第三方拓展包，可以用GGally的ggpairs()函数快速生成更美观的可视化结果：

# 首次使用需先安装包
# install.packages("GGally")
library(GGally)

# 生成带回归线的散点图矩阵，se参数控制是否显示置信区间
ggpairs(insurance, 
        lower = list(continuous = wrap("smooth", method = "lm", se = FALSE, color = "red")))

内容的提问来源于stack exchange，提问作者rrr