世界の小冊子 - 除外南極

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) 

座標は、Googleで「スウェーデンは座標」検索から単純です。 https://www.latlong.net/などのサイトを使用すると、適切な中心点を選択するのに役立ちます。

Answer 2

残念ながら「rnaturalearthは」（まだ）ないです利用できるのFPR R 3.4.2と私はちょうどので、私は私の答えを証明することができない1秒前に更新しました。しかし、ポインタを要求しているとき -

私は 'rworldmap'パッケージを使用し、地図がパッケージによって定義された後で除外することで南極を取り出します。

これによると、あなたのコードに私の提案は、次のようになります。

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