how to plot multiple graphs in r with a single x label
reset <- function() {
par(mfrow=c(1, 1), oma=rep(0, 4), mar=rep(0, 4), new=TRUE)
plot(0:1, 0:1, type="n", xlab="", ylab="", axes=FALSE)
}
par(mfrow=c(3,1),oma=c(2,2,0,0))
plot(1,1)
plot(1,1)
plot(1,1)
mtext("The x Label",side=1,line=0,outer=TRUE,cex=1.3)
mtext("The y Label",side=2,line=0,outer=TRUE,cex=1.3,las=0)
reset()
legend("top", legend=c("A", "B"), fill=c("red", "blue"), ncol=2, bty="n")