R如何使使用rworldmap创建的地图与绘图大小相匹配

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

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

require（rworldmap）
要求（整洁的人）
国家%
重命名（国家=值）
映射%
子集（大陆！=“南极洲”）
mapCountryData（地图，
nameColumnToPlot='covered'，
catMethod='fixedWidth'，
numCats=2，
addLegend=FALSE，
调色板=c（“黑色”、“灰色”），
borderCol=“白色”，
oceanCol=‘灰色’，
mapTitle=“样本覆盖率”）

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

我的问题是：如何增加图形中生成的贴图的大小

我知道在

.Rmd

文档中，我可以设置块的

fig.width

，但这会增加地图的大小和结果文档中标题的大小。相反，我想保持标题的大小不变，只增加地图相对于标题的大小

谢谢你的帮助