Ниже приводится ситуация:

<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>

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

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

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