在R的ggmap中移动地图的一部分

Question

我正在尝试使用ggmap映射R中的一些数据。当我得到地图时，它看起来像这样。

cen <- geocode('Danmark')
center <- as.numeric(cen)
map <- get_googlemap(center = center, zoom = 6,
                     size = c(640, 640), scale = 2, region="dk",crop = TRUE,color="bw")
ggmap(map) #+ geom_point(aes(x = lon, y = lat, size=antal), data=df, colour="darkred")

问题是博恩霍尔姆岛位于丹麦的远东地区。这使得地图非常大。为了增加空间使用量，我想将博恩霍尔姆移到右上角。像这样的东西

如何在ggmap中执行此操作并仍覆盖数据？