我制作了一个散点图矩阵,并希望将趋势线添加到每个图或仅显示重要图上。我的R命令:cor(K4Full [,c(6:9,22:25)])plot(K4Full [,c(6:8,22:25)])
您可以尝试以下操作:
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)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句