różne rozmiary twarzy są proporcjonalne do osi X na ggplot 2 r

Następna sytuacja:

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)

Poszczególne ściany są skalowane według granic x na poniższym wykresie:

ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+ 

 facet_grid (.~ group, scales = "free_x")

Ponieważ całkowita szerokość x ma znaczenie, chcę tworzyć twarze o różnych szerokościach, a nie tylko w różnych skalach. Dlatego oczekiwana szerokość fasety 1 powinna być równa połowie szerokości rozmiaru 2.