ggplot & tablegrob：如何在正确的位置一起绘图？

Question

我正在一张桌子旁边画一张地理地图，上面有一些关于它的数据。 我正在使用 shapefiles (prov2022) 和数据集。

这是我的剧本

# GEOGRAPHIC MAP
MAP <- right_join(prov2022, dataset, by = "COD_PROV") %>% 
  ggplot(aes(fill = `Real Difference` >= 10 ))+
  geom_sf() +
  theme_void() +
  scale_fill_manual(values = c('white', 'red')) 

#TABLE
TABLE <- subset(cc , `Real Difference` >= 10, c("City Name", "Average amount", "Nominal Difference", "%", "Real Wage", "Real Difference" ))
TABLE <- arrange(TABLE, -`Real Wage`)
TABLE <- tableGrob(TABLE, theme = ttheme_default(base_size = 15))

#PLOTTING TOGETHER
grid.arrange(arrangeGrob(MAP, TABLE, ncol=2))

脚本工作正常，但左侧的 MAP 和右侧的 TABLE 之间有太多空白空间，并且（结果）表格被剪切，因为它超出了画布。

我可以在 grid.arrange 中设置什么来删除（或减少）两个地块之间的空间吗？或者我可以直接将桌子向左移动一点以避免它从画布上消失吗？

我已经知道我可以用较低的值减小表格设置

theme = ttheme_default(base_size = 15)

的大小，但是这样所有的字符都会变小并且难以阅读