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

Question

<分区>

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)