タイトルggplotオブジェクトのgrid.arrange（）の背景

Question

私はggplot2でいくつかの単純なプロットを作成し、grid.arrange()（パッケージgrid.extraから）をグループ化して1つの図にプロットを結合しました。 私は以下のように、引数topでgrid.arrange()機能を経由してタイトルを作成しています：

library(ggplot2) 
library(gridExtra) 

...

tiff("Figure5.tiff", 
    height = 20, width = 16, units = "cm", 
    compression = "lzw", res = 300) 
Fig5 <- grid.arrange(plot5, plot5Ran, ncol = 2, 
        top = textGrob("Comparison of Correlation Output", 
            gp = gpar(fill='snow'))) 

plot(Fig5) 
dev.off() 

をただし、一部のスクリーンショットで見ることができるように上記のように、タイトルの背景（図の上部にある画像の部分で、引数topによって追加されたものは、maのように白ではなくggplotテーマの背景を取得しますrgins。 私は引数fillを使用しようとしましたが効果はありません。

タイトルを白い背景にするにはどうすればよいですか？ facetsを使用するとより簡単になり、grid.arrangeを避けることができますが、この場合は意味がありません。私はggplotテーマを白に変更することもできますが、この場合はオプションではありません。 ありがとう

Answer 1

ユーザー20650が示唆したように、印刷の問題でした。 以下の両方のオプションが機能します。

RオブジェクトおよびTIFFファイルとしてフィギュアを保存するまず：user20650により示唆されるように、

tiff("Figure5X.tiff", 
    height = 20, width = 16, units = "cm", 
    compression = "lzw", res = 300) 
Fig5 <- grid.arrange(plot5, plot5Ran, ncol = 2, 
        top = "Comparison of Correlation Output") 
Fig5 
dev.off() 

あるいは、唯一のTIFFファイルを保存：

tiff("Figure5Y.tiff", 
    height = 20, width = 16, units = "cm", 
    compression = "lzw", res = 300) 
    grid.arrange(plot5, plot5Ran, ncol = 2, 
        top = "Comparison of Correlation Output") 
dev.off()