¿Cómo mostrar dos grupos de diagramas de caja?

Tengo dos grupos de datos (x1 y x2 versus y1 e y2), que me gustaría mostrar como dos grupos de diagramas de caja.

ntenté lo siguiente, pero muestra los datos incorrectos porque los vectores x1 y x2 (e y1 e y2) no tienen la misma longitud:

x1 <- c(2,3,4)
x2 <- c(0,1,2,3,4,5)

y1 <- c(3,4,5)
y2 <- c(1,2,3,4,5,6)

d0 <- matrix(c(x1, x2),  ncol=2)
d1 <- matrix(c(y1, y2),  ncol=2)

lmts <- range(d0,d1)

par(mfrow = c(1, 2))
boxplot(d0, ylim=lmts, xlab="x")
boxplot(d1, ylim=lmts, xlab="y")

Esto es lo que muestra (por supuesto, quería que los bigotes del primer diagrama de caja fueran de 2 a 4, de acuerdo con el rango de x1, etc.):

Respuestas a la pregunta(2)

Su respuesta a la pregunta