R /リーフレット - 多数のポリゴンを描画

Question

リーフレットパッケージで多数のポリゴンを描画しようとしていますが、何がうまくいかないのか分かりません。

私が使用してシェープファイルは、ここで見つけることができます：https://www.data.gouv.fr/en/datasets/fond-de-carte-des-codes-postaux/

library(leaflet) 
library(rgdal) 
df <- readOGR("C:/Users/me/codes_postaux","codes_postaux_region") 
plot(df) 

シェープファイルは、私にはOKと思われると私が使用するコードはかなり単純です。しかし、私は出力としてのみ、ポリゴンはマップを取得します。私はかなり長い間、この問題に苦労してきました、誰かが私をここで助けることができたら本当に感謝します。

map <- leaflet(df) %>% 
    addProviderTiles("CartoDB.Positron")%>% 
    fitBounds(10,38,10,55) %>% 
    addPolygons(fillOpacity = 0.8, color = "Blue", weight = 1) 

map 

Answer 1

df@proj4stringを見て、plot(df); axis(1); axis(2)の出力。シェイプファイルは特定のCRSを使用します。 SpatialPolygonsDataFrameを共通の​​（私はここからCRSコードを得ました：Leaflet for R: Raster Images）に変換する必要があります。

library(sp) 

pj <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs") 
df2 <- spTransform(df, pj) 

map2 <- leaflet(df2) %>% 
    addProviderTiles("CartoDB.Positron")%>% 
    fitBounds(10,38,10,55) %>% 
    addPolygons(fillOpacity = 0.8, color = "Blue", weight = 1) 
map2