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)