Грани разного размера, пропорциональные оси x на ggplot 2 r

Следующая ситуация:

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)

Различные грани масштабируются по x пределам на следующем графике:

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

Поскольку общая ширина x имеет значение, я хочу создать грани разных ширина не только разные масштабы. Таким образом, ожидаемая ширина фасета 1 должна быть вдвое меньше размера 2.