仅更改R中地图的一部分的大小

这是一个可复制的例子。我已经得到了美国和英国的地图。我的问题是如何在不改变同一地块上美国部分大小的情况下将英国部分的大小翻倍。谢谢

库（tidyverse）
图书馆（rnaturalearth）
图书馆（sf）
#>链接到GEOS 3.9.0、GDAL 3.2.1、项目7.2.1
图书馆（主题）
英国地图%
选择（国家/地区=管理员、名称、几何图形）
美国地图%
选择（国家/地区=管理员、名称、几何体）%>%
筛选器（！名称%位于%c（“阿拉斯加”、“夏威夷”））
映射两个%r绑定（映射我们）
映射\u两者%>%
ggplot（）+
geom_sf（aes（几何=几何，填充=名称））+
主题地图（）+
主题（legend.position=“无”）

---

由（v2.0.0）于2021年4月19日创建，可能与

cowplot一起创建：

以下是我的尝试：

library(tidyverse)
library(rnaturalearth)
library(sf)
library(ggthemes)
library(cowplot)

map_uk<- st_as_sf(ne_countries(country = 'united kingdom' , 
                               type = 'map_units')) %>% 
  select(country = admin, name, geometry)

map_us <- st_as_sf(ne_states(country = "united states of america")) %>% 
  select(country = admin, name, geometry) %>%
  filter(!name %in% c("Alaska", "Hawaii"))


US <- ggplot(data=map_us) + 
  geom_sf() +
  theme_map()

UK <- ggplot(data=map_uk) + 
  geom_sf() +
  theme_map()



ggdraw() + draw_plot(US, x=0,y=0,width = 0.75, height = 0.8) + draw_plot(UK, x=0.65,y=0.4,width = 0.45, height = 0.4)

库（tidyverse）
图书馆（rnaturalearth）
图书馆（sf）
图书馆（主题）
图书馆（cowplot）
英国地图%
选择（国家/地区=管理员、名称、几何图形）
美国地图%
选择（国家/地区=管理员、名称、几何体）%>%
筛选器（！名称%位于%c（“阿拉斯加”、“夏威夷”））
美国
map_both <- map_uk %>% rbind(map_us)

both <- map_both %>%
  ggplot()+
  geom_sf(aes(geometry = geometry, fill = name)) + 
  theme_map() +
  theme(legend.position = "none")


UK2 <- both %+% subset(map_both,country %in% c("United Kingdom"))
US2 <- both %+% subset(map_both,country %in% c("United States of America"))

plot_grid(US2,UK2,ncol=2, scale=c(1,0.4))