如何转换空间坐标以显示在“CartoDB.Positron”地图上？

Question

我有SpatialPolygonsDataFrame [https://drive.google.com/file/d/0B5amt_a1FFXyZkd6eXF0czlReGc/view?usp=sharing]未预测。空间坐标为range(long) = c(5e10 ; 8e10)和range(lat) = c(1e7,3e7)。我想使用包leaflet来显示地图：

leaflet() %>%
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(data = polydf, 
              fillColor = ~pal(percent), 
              color = "#b2aeae"
              popup = popup)

但是，我只获得了CartoDB.Positron地图，没有与SpatialPolygonsDataFrame对应的图层。我想我必须改变坐标。我试图设置一个自定义CRS然后转换它，并在我的地图上得到一些非常扭曲的显示。我找不到如何获得正确的参考系统。