R: Jak umieścić dwie pola obok siebie, zachowując ten sam zakres Y dla obu?

Question

Załóżmy, że mam dwa zbiory danych, jeden z zakresem y [min0: max0], a drugi z zakresem y [min1: max1]. W jaki sposób można umieścić oba wykresy pudełkowe na jednym wykresie obok siebie z rozsądnym zakresem y [min (min0, min1): max (max0, max1)]?

Oto, co starałem:

d0 <- matrix(rnorm(15), ncol=3) 
d1 <- matrix(rnorm(15), ncol=3) 

par(mfrow = c(1, 2)) 
boxplot(d0) 
usr <- par("usr") 
plot.new() 
par(usr = usr) 
boxplot(d1, add = TRUE) 

Ale to zachowa tylko pierwszy działek y zakres, a także wycisnąć zarówno działek natomiast chciałbym je do kwadratu.

Wszelkie pomysły?

Answer 1

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) 

Można też pomyśleć o sposób to zrobić przy użyciu grafiki siatki, albo przez pakiety lattice lub ggplot2.

Oto jedna próba w 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) 

A w kratę:

# Using lattice 
library(lattice) 
bwplot(~ val|sub.type+d.type ,d) 

Uwaga, w jaki sposób rozwiązania siatki opartej trzymać cię z konieczności określić limity; określasz strukturę, a oprogramowanie robi resztę.