融化你的数据然后使用ggplot与facet.
library("ggplot2")
library("reshape2")
#dummy data
df <- data.frame(x=1:10,
a=runif(10),
b=runif(10),
c=runif(10))
#melt your data
df_melt <- melt(df,"x")
#scatterplot per group
ggplot(df_melt,aes(x,value)) +
geom_point() +
facet_grid(.~variable)
Run Code Online (Sandbox Code Playgroud)

df我将使用基本绘图选项(使用@zx8754)来完善它:
layout(matrix(seq(ncol(df)-1),nrow=1))
Map(function(x,y) plot(df[c(x,y)]), names(df[1]), names(df[-1]))
Run Code Online (Sandbox Code Playgroud)

尽管可以说这仍然是一个使用Map.