Если вы просто хотите, чтобы одновременно открывались два разных окна печати, используйте dev.new
, например,
plot(1:10)
dev.new()
plot(10:1)
Если вы хотите нарисовать два графика в одном и том же окне, то, как упоминал Шейн, установите параметр mfrow
.
par(mfrow = c(2,1))
plot(1:10)
plot(10:1)
Если вы хотите попробовать что-то более продвинутое, вы можете взглянуть на решетчатую графику или ggplot, оба из которых отлично подходят для создания условных графиков (графиков, где разные подмножества данных появляются в разных кадрах).
Пример решетки:
library(lattice)
dfr <- data.frame(
x = rep(1:10, 2),
y = c(1:10, 10:1),
grp = rep(letters[1:2], each = 10)
)
xyplot(y ~ x | grp, data = dfr)
Пример ggplot. (Сначала вам нужно скачать ggplot с CRAN.)
library(ggplot2)
qplot(x, y, data = dfr, facets = grp ~ .)
#or equivalently
ggplot(dfr, aes(x, y)) + geom_point() + facet_grid(grp ~ .)