Question

下面的代码是可重现的 - 它使用传单构建世界地图。我真的对南极洲不感兴趣，我对斯堪的纳维亚半岛更感兴趣:) 任何切割南极洲的方法或至少迫使它始终位于地图的底部 - 以便地图的中心位于更远的北方？非常感谢任何指针！

library(leaflet)
library(rnaturalearth)
countries <- rnaturalearth::countries110
goodnames <- countries$name
goodnames[goodnames %in% goodnames[32]] <- "Ivory Coast"
countries$name[32] <- goodnames[32]
mymap <- leaflet(countries, options = leafletOptions(minZoom = 2))
myvalues <- 1:177
mycolors <- colorNumeric(palette = c("#fee6ce","#e6550d"),
                            domain = myvalues)(myvalues)
mymap %>%
 addPolygons(stroke = FALSE, smoothFactor = 0.2, fillOpacity = 1,
             color = ~mycolors,
             label = countries$name)

Answer 1

您可以使用setView将初始查看点设置为您选择的任何位置。如果你希望这张地图在开幕时专注于斯堪的纳维亚半岛，你可以做...

mymap <- leaflet(countries, options = leafletOptions(minZoom = 2)) %>% setView(lng=18.6435,lat=60.1282,zoom=2)

坐标只是来自搜索＆＃39;瑞典坐标＆＃39;在谷歌上。您可以使用https://www.latlong.net/等网站来帮助您选择合适的中心点。

Answer 2

不幸的是'rnaturalearth'还没有（还）可用fpr R 3.4.2并且我刚刚更新了一秒钟，所以我无法证明我的答案。但是当你要求任何指针时 -

我使用'rworldmap'包并通过在包定义地图后将其排除来取出南极洲。

根据这一点，我对你的代码的建议是：

mymap <- mymap[-which(row.names(mymap)=='Antarctica'),]

世界传单地图 - 不包括南极洲

2 个答案: