刪除桌面周圍的空白格與網格編排

我想在劇情窗口中顯示一張桌子，但最終會在桌子周圍留下太多空白。刪除桌面周圍的空白格與網格編排

我的代碼如下：

` mytable = data.frame(Strategy = c("Long Short","Long Short Directional 
Bias","Market Neutral"), 
        Assets_AUM = c("R 1 000 000 00","R 2 000 000 000", "R 500 000 000")) 

mytheme <- ttheme_default(core = list(fg_params = list(hjust=0, x=0.1, 
                 fontsize=8)), 
          colhead = list(fg_params = list(fontsize=9, 
                  fontface="bold"))) 
plot1 = tableGrob(mytable,rows=NULL,theme = mytheme) 
grid.arrange(plot1) `

結果我得到的是：