ggplot2 move facet layout

Question

我想手动（或自动）修改R中ggplot2图形的分面图形的面板布局。我已经看到Facets的注解和重新排序的解决方案，但没有看到这个具体问题。这里是一个重复的例子：

library(ggplot2) 
plot <- ggplot(diamonds, aes(carat, price)) + facet_wrap(~cut) + geom_point() 

如果我现在在情节看，你看到的是空白刻面的情节格的右下角分配。

我想要做的就是让空白图位置位于左上角，但仍然绘制所有其他图（只移动空白图位置）。

我试着寻找ggplot_build()这样：

plot_build <- ggplot_build(plot) 
plot_build$panel$layout 

，但我无法弄清楚如何真正移动空白地块位置，以正确的行和列。有没有人有任何想法？

Answer 1

你可以在gtable移动面板，

library(grid) 
library(ggplot2) 

p <- ggplot(diamonds, aes(carat, price)) + 
     facet_wrap(~cut) + geom_point() 

g <- ggplotGrob(p) 

gl <- g$layout 
idcol <- gl$r == (ncol(g)-2) 
g$layout[idcol & gl$b < 5, c("t", "b")] <- gl[idcol & gl$b < 5, c("t", "b")] + 4 
grid.newpage() 
grid.draw(g)