plot(1:10)
 x11()            # this has aliases on different OSs
 plot(10:1)

par(mfrow = c(3,1))

plot(1:1)
dev.new()
plot(2,2)
dev.set(dev.prev()) # go back to first
title(main="test dev 1")

dev.set(dev.next()) # go to second
title(main="test dev 2")