n x mグリッドを形成するファセット プロットがあります。設計上、最後 (右下) のセルは常に空なので、別の ggplot オブジェクトを追加して余分なスペースを利用したいと思います。viewport私の現在のソリューションは、あまりエレガントではなく、位置とサイズのハードコーディングが必要な低レベルのアプローチに依存しています。
代わりに、空のスペースには他の方法で到達できるとgridExtra思います。
の最小限の例を次に示しn=m=2ます。エッジが適切に配置されていないことに注意してください。そのため、ビューポートのパラメーターを手動で調整するには、特に(n, m)後で変更する場合に面倒です。
library(ggplot2)
library(grid)
p <- qplot(displ, hwy, data = mpg[mpg$cyl != 5, ]) +
facet_wrap(~ cyl, nrow=2)
q <- qplot(date, unemploy, data = economics, geom = "line") +
labs(x = NULL, y = NULL)
p
print(q, vp=viewport(0.75, 0.275, 0.45, 0.45))
