d0 <- matrix(rnorm(15), ncol=3)
d1 <- matrix(rnorm(15), ncol=3)
# Using base R graphics
lmts <- range(d0,d1)
par(mfrow = c(1, 2))
boxplot(d0,ylim=lmts)
boxplot(d1,ylim=lmts)
Вы также можете подумать о том, как сделать это, используя сеточную графику, либо с помощью пакетов lattice
или ggplot2
.
Вот одна попытка в ggplot2:
# Using ggplot2
library(ggplot2)
d <- data.frame(d.type=c(rep(0,15),rep(1,15)),sub.type=rep(c('A','B','C'),10),val=rnorm(30))
p <- ggplot(d, aes(factor(sub.type), val))
p + geom_boxplot() + facet_grid(. ~ d.type)
А в решетке:
# Using lattice
library(lattice)
bwplot(~ val|sub.type+d.type ,d)
Обратите внимание, как решения на основе сетки не дают вам возможности устанавливать ограничения; Вы указываете структуру, а программное обеспечение делает все остальное.