删除桌面周围的空白格与网格编排

我想在剧情窗口中显示一张桌子，但最终会在桌子周围留下太多空白。删除桌面周围的空白格与网格编排

我的代码如下：

` 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) `

结果我得到的是：