R 导入的geojson具有与手动创建的点要素csv不同的bbox

我不知道这两个文件是怎么回事，我想这是一个投影问题，或者我需要一个新的多边形

数据：

结构显示B盒不同，但投影相同：

> print(provinces)
Simple feature collection with 14 features and 22 fields
geometry type:  MULTIPOLYGON
dimension:      XY
bbox:           xmin: -96.01125 ymin: 40.00688 xmax: -95.8891 ymax: 40.08523
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs

> print(pts)
Simple feature collection with 5 features and 1 field
geometry type:  POINT
dimension:      XY
bbox:           xmin: -119.4833 ymin: 43.65165 xmax: -52.87157 ymax: 53.55
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs
# A tibble: 5 x 2

---

如何将这两个多边形放在同一页上？

我很确定highcharts中的多边形由于某种原因被破坏了，或者至少它们不在它们所说的投影中。EPSG 102002应该在中，但这些多边形的坐标扩展到10000个单位左右，这对于各省来说太小了。（转换前检查Stbbox）好吧-所以我不是完全疯了。如果无法使用这些多边形，我将尝试找到更好的多边形查看highcharts演示使用这些多边形，它没有底图，因此他们可能忽略了投影，因为这无关紧要：/我合理地确定highcharts中的多边形由于某种原因被破坏，或者至少它们不在他们所说的投影中。EPSG 102002应该在中，但这些多边形的坐标扩展到10000个单位左右，这对于各省来说太小了。（转换前检查Stbbox）好吧-所以我不是完全疯了。如果无法使用这些多边形，我将尝试找到更好的多边形查看highcharts演示使用这些多边形，它没有底图，因此他们可能会忽略投影，因为这无关紧要：/

leaflet(provinces) %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addPolygons() %>% 
  addMarkers(data = pts)

> print(provinces)
Simple feature collection with 14 features and 22 fields
geometry type:  MULTIPOLYGON
dimension:      XY
bbox:           xmin: -96.01125 ymin: 40.00688 xmax: -95.8891 ymax: 40.08523
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs

> print(pts)
Simple feature collection with 5 features and 1 field
geometry type:  POINT
dimension:      XY
bbox:           xmin: -119.4833 ymin: 43.65165 xmax: -52.87157 ymax: 53.55
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs
# A tibble: 5 x 2