Dirk, , ?par, , mfrow
, par(mfrow=c(2,2)) 2x2 .
. ?split.screen ?layout
:
dev.new()
dev.1 <- as.integer(dev.cur())
dev.new()
dev.2 <- as.integer(dev.cur())
dev.new()
dev.3 <- as.integer(dev.cur())
x <- seq(1, 100, 0.1)
dev.set(dev.1)
plot(x, sin(x), "l")
dev.set(dev.3)
plot(x, cos(x), "l")
dev.set(dev.1)
points(x, cos(x), "l", col="red")
, , dev.1, dev.2 dev.3, (1,2,3), dev.cur, , , 1,2,3 .. ( )