par(mfrow=c(6,5), mar=c(2,2,0,0), mgp=c(-1,.5,0))
eg.df <- expand.grid(names(swiss), names(swiss))
for(i in 1:nrow(eg.df)){
print(i)
xv <- as.character(eg.df[i,1]); print(xv)
yv <- as.character(eg.df[i,2]); print(yv)
if(yv != xv)
plot.xy.ab.p(x=swiss, x.var=xv, y.var=yv, p.value=FALSE, slope=FALSE)
}
Run the code above in your browser using DataLab