不同大小的面与 ggplot 2 r 上的 x 轴成比例

下面是一种情况：

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 的一半。

如果我理解正确的话space = "free_x"做你想做的事facet_grid。据我所知，facet_wrap从未支持过空间论点，但许多人facet_wrap命令可以转换为facet_grid命令。

library(ggplot2)

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

如果您想要在 x 轴上使用相同样式的标签：

ggplot(mydf, aes(X, Y)) + geom_point()+ 
 scale_x_continuous(breaks = seq(0,20,2)) +
 facet_grid (.~ groups, scales = "free_x", space = "free_x")