paasall <- read.csv("49PAAS.csv",header=TRUE) paasall cols <- character(nrow(paasall)) cols[] <- "black" myCol <- rep(colors()[1:49],each=2) pdf("P_PASS49Corr.pdf", width=49, height=49) pairs(paasall, panel=panel.smooth) dev.off()