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

Question

我已经制作了一个散点图矩阵，并向每个图的广告趋势线添加广告，或者仅对那些有意义的广告添加趋势线。 我的R指令： COR（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) 

为了适应直线问心无愧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)