如何在散點圖矩陣中插入趨勢線

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)