如何在scatterplot矩阵中插入趋势线

Question

我制作了一个散点图矩阵，并将趋势线与每个情节的趋势线相对应，或仅与有意义的情节相对应。 我的R命令： 心病（K4Full [，C（6：9,22：25）]） 情节（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)

适合直线：

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)