r - 为 facet_grid/facet_wrap 图的每一行分配唯一的宽度

Question

我希望为 R 中的一列、分面包装图的每一行分配一个自定义宽度。(我知道这完全是非标准的。)
与 grid.arrange我可以使用以下代码段为分面包裹的像图的每一行分配一个唯一的高度:

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

plot1 <- ggplot(mydf, aes(X, Y)) + geom_point()
plot2 <- ggplot(mydf, aes(X, Y)) + geom_point()

grid.arrange(plot1, plot2, heights=c(1,2))

上面的代码给绘图的每一行一个唯一的高度:

我想知道是否可以为绘图的每一行分配一个唯一的宽度，而不是为每一行分配一个唯一的高度。任何 ggplot2 扩展都可以做到这一点吗？

Answer 1

是的，如果您使用 plot.margin，这是可能的。 ggplot 中的功能 theme() .您可以通过执行以下操作将每个绘图宽度设置为页面总长度的百分比:

plot1 <- ggplot(mydf, aes(X, Y)) + geom_point()+theme( plot.margin = unit(c(0.01,0.5,0.01,0.01), "npc"))
plot2 <- ggplot(mydf, aes(X, Y)) + geom_point()+theme( plot.margin = unit(c(0.01,0.2,0.01,0.01), "npc"))

当我们使用 npc s 作为我们在 plot.margin 中感兴趣的单位调用，我们设置相对于页面宽度。 0.5和 0.2对应右边距。如 npc增加，你的情节会变得越小。

grid.arrange(plot1, plot2, heights=c(1,2))