有木有人

求解答

我試了試，您看看結果能不能用。舉例是r自帶數據iris,故可執行看看。
語法如下:
data(iris,package="datasets")
use_data=iris[,-5]

pairplot=function(x,y) plot(x,y,xlab="",ylab="")
box=function(x) boxplot(x)
x=use_data

windows()
par(mfrow=c(4,4))

box(x[,1]);pairplot(x[,1],x[,2]);pairplot(x[,1],x[,3]);pairplot(x[,1],x[,4])
pairplot(x[,2],x[,1]);box(x[,2]);pairplot(x[,2],x[,3]);pairplot(x[,2],x[,4])
pairplot(x[,3],x[,1]);pairplot(x[,3],x[,2]);box(x[,3]);pairplot(x[,3],x[,4])
pairplot(x[,4],x[,1]);pairplot(x[,4],x[,2]);pairplot(x[,4],x[,3]);box(x[,4])

,旁邊高手建議：
library(car)
data=iris[,-5]

scatterplotMatrix(data,var.labels=NULL,diagonal="boxplot",
                  smoother=F,reg.line=F)