O seguinte é uma situação:

<code>group1 <- seq(1, 10, 2)
group2 <-  seq(1, 20, 3)
x = c(group1, group2)
mydf <- data.frame (X =x , Y = rnorm (length (x),5,1), 
 groups = c(rep(1, length (group1)), rep(2, length(group2))))

ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+ facet_grid (.~ group)
</code>

Diferentes facetas são dimensionadas por x limites no seguinte gráfico:

<code> ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+ 
   facet_grid (.~ group, scales = "free_x")
</code>

Como largura total de x tem significado, eu quero produzir facetas de largura diferente, não só escala diferente. Assim, a largura esperada da faceta 1 deve ser metade do tamanho de 2.