如何在散点图矩阵中插入趋势线

Question

我制作了一个散点图矩阵，并希望将趋势线添加到每个图或仅添加到信号图上。我的 R 命令： cor(K4Full[c(6:9,22:25)]) plot(K4Full[c(6:8,22:25)])

Answer 1

您可以尝试以下方法：

pairs(K4Full[,c(6:8,22:25)], panel=panel.smooth)

mtcars 数据集示例：

pairs(mtcars[1:6],panel=panel.smooth)

用 lm 拟合直线：

panel.lm <- function (x, y,  pch = par("pch"), col.lm = "red",  ...) {   
  ymin <- min(y)
  ymax <- max(y)
  xmin <- min(x)
  xmax <- max(x)
  ylim <- c(min(ymin,xmin),max(ymax,xmax))
  xlim <- ylim
  points(x, y, pch = pch,ylim = ylim, xlim= xlim,...)
  ok <- is.finite(x) & is.finite(y)
  if (any(ok)) 
    abline(lm(y[ok]~ x[ok]), 
           col = col.lm, ...)
}

pairs(mtcars[1:6],panel=panel.lm)

如何在散点图矩阵中插入趋势线

how to insert trendlines in scatterplot matrix

r

matrix

correlation

scatter-plot