r - R如何使使用rworldmap创建的地图适合绘图大小

Question

我有以下地图，显示了我的样本所涵盖的国家：

require(rworldmap)
require(tidyverse)
countries <- c("AUS", "AUT", "BEL", "BGR", "BRA", "CAN", "CHE", "CHN", "CYP",
               "CZE", "DEU", "DNK", "ESP", "EST", "FIN", "FRA", "GBR", "GRC",
               "HRV", "HUN", "IDN", "IND", "IRL", "ITA", "JPN", "KOR", "LTU",
               "LUX", "LVA", "MEX", "MLT", "NLD", "NOR", "POL", "PRT", "ROU",
               "RUS", "SVK", "SVN", "SWE", "TUR", "TWN", "USA")
countries <- as.tibble(countries) %>% 
  mutate(covered = TRUE) %>% 
  rename(countries = value)

map <- joinCountryData2Map(countries, nameJoinColumn = "countries") %>% 
  subset(continent != "Antarctica")

mapCountryData( map, 
                nameColumnToPlot='covered', 
                catMethod='fixedWidth', 
                numCats=2 ,
                addLegend = FALSE,
                colourPalette = c("black", "grey"),
                borderCol = "white",
                oceanCol = 'grey',
                mapTitle = "sample coverage")

在生成的 pdf 中，图表如下所示：

我的问题：如何增加图表中结果地图的大小？

我知道在一个.Rmd文档中，我可以设置fig.width一个块，但这会增加地图的大小和结果文档中标题的大小。相反，我想保持标题的大小固定，只增加地图相对于标题的大小。

谢谢你的帮助！