如何在R语言的pairs()函数中绘制回归线而非lowess线？

嘿，我明白你遇到的困扰了——想把pairs()里panel.smooth的lowess平滑线换成线性回归线，但自己写的函数没生效对吧？其实问题大概率出在panel函数的定义方式上，pairs()对传入的panel函数有特定的参数要求，咱们一步步来搞定：

1. 正确定义绘制回归线的panel函数 #

pairs()会把每一对变量的x和y值传递给panel函数，所以你的自定义panel函数必须接收x和y作为前两个参数，而且通常需要先绘制散点（不然只会看到线，没有原始数据点做参照），再添加回归线。

举个正确的函数示例：

# 自定义panel函数：画散点+线性回归线
panel_reg <- function(x, y, ...) {
  # 先绘制散点，...用来传递额外绘图参数（比如点的颜色、大小）
  points(x, y, ...)
  # 拟合线性模型并添加回归线，设置颜色和线宽让它更显眼
  abline(lm(y ~ x), col = "darkred", lwd = 2)
}

2. 在pairs()中调用自定义panel函数 #

用内置的mtcars数据集举个完整的例子，看看实际效果：

# 对mtcars的前3个变量绘制散点图矩阵，用自定义panel函数替换默认的panel.smooth
pairs(mtcars[, c("mpg", "disp", "hp")], panel = panel_reg)

3. 可选：同时保留lowess线和回归线 #

如果你想同时展示lowess平滑线和线性回归线，也可以把两者都放进panel函数里，用不同颜色区分：

panel_both <- function(x, y, ...) {
  points(x, y, ...)
  abline(lm(y ~ x), col = "darkred", lwd = 2)
  # 添加lowess平滑线
  lines(lowess(x, y), col = "steelblue", lwd = 2)
}

# 调用示例
pairs(mtcars[, c("mpg", "disp", "hp")], panel = panel_both)

为什么你之前的函数没生效？ #

大概率是这两个原因：

• 自定义函数没有接收x和y参数，pairs()无法传递变量值给它
• 只写了绘制回归线的代码，没有先绘制散点，导致看起来“没效果”（其实线可能画了，但没有数据点对比就不明显）

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