R: ¿Cómo pongo dos diagramas de cajas uno al lado del otro, manteniendo el mismo rango y para ambos?

Question

Digamos que tengo dos conjuntos de datos, uno con rango y [min0: max0] y el otro con rango y [min1: max1]. ¿Cómo se pueden poner ambos diagramas de cajas en un diagrama uno al lado del otro con un rango de y sanos [min (min0, min1): max (max0, max1)]?

Esto es lo que he intentado:

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) 

Pero eso sólo mantendrá las primeras parcelas y-rango y apretar ambas parcelas mientras que me gustaría que ser cuadrado.

¿Alguna idea?

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) 

También es posible que desee pensar en una manera de hacer esto usando gráficos de cuadrícula, ya sea por los lattice o ggplot2 paquetes.

Aquí hay un intento de 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) 

Y en celosía:

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

Nota cómo las soluciones basadas en la red le impiden tener que para especificar límites; usted especifica la estructura y el software hace el resto.