R Multiples plot in a single varible

Hi I have the next code:

par(mfrow=c(1,3))
plot(BCxyz[,1], BCxyz[,2], main="Bray-Curtis 1:2", pch=20, cex = 3, col=c("blue", "green", "red", "yellow")[Metadata$SampleType])
plot(BCxyz[,1], BCxyz[,3], main="Bray-Curtis 1:3", pch=20, cex = 3, col=c("blue", "green", "red", "yellow")[Metadata$SampleType])
plot(BCxyz[,2], BCxyz[,3], main="Bray-Curtis 2:3", pch=20, cex = 3, col=c("blue", "green", "red", "yellow")[Metadata$SampleType])

in this way I get a figure with 3 plots, so I just want to add the figure (with 3 plot in it) in a single variable, something like :

figure1 <- (mfrow=c(1,3)........)

and each time that I call figure1, open 3 plot in a single figure !!!!

Thanks