将3个单独的地图排列成一个带有1个图例和1个标题的网格

Question

我需要为美国约138个地点绘制数据。如果我缩小到包括夏威夷和阿拉斯加，大陆国家是不可辨别的。所以，我制作了3个地块：48个大陆州，阿拉斯加州和夏威夷州。但现在我面临着将它们组合在一起的问题。我如何只展示1个传奇，1个共同的标题，并在AK和HI的地图宽度上拉伸48个大陆州的地图。像this picture的东西，顶行有48个州的地图，下排有阿拉斯加和夏威夷的地图

我的开发地图代码如下。这是针对48个州，我用阿拉斯加和夏威夷取代美国以获得其他2个地图

map <- get_map(location = 'united states', zoom = 4, maptype = "terrain",
               source = 'google', color = 'bw')

CS <- ggmap(map) + 
  geom_point(data = data, 
             aes(x = longitude, y = latitude, color = value), 
             alpha = 0.9, size = 5) + 
  scale_color_gradientn(colours = c('#a50026', '#d73027', '#f46d43', '#fdae61', 
                                    '#abd9e9', '#74add1', '#4575b4', '#313695'))

以下是我目前的情节如何使用

gridExtra::grid.arrange(CS, AK, HI, nrow=2)