r - 在SF对象上设置正确的crs以绘制坐标点

Question

我正在尝试为sf对象定义正确的CRS。我想在以下图层(国家:荷兰)上绘制点:

Simple feature collection with 380 features and 3 fields
geometry type:  MULTIPOLYGON
dimension:      XY
bbox:           xmin: 13565.4 ymin: 306846.2 xmax: 278026.1 ymax: 619232.6
epsg (SRID):    NA
proj4string:    +proj=sterea +lat_0=52.15616055555555 +lon_0=5.38763888888889 +k=0.9999079 +x_0=155000 +y_0=463000 +ellps=bessel +units=m +no_defs

输出:

该层具有正确的投影。

但是 POINT层可能没有正确的CRS项目，大概是因为它没有 proj4string吗？

Simple feature collection with 566 features and 5 fields
geometry type:  POINT
dimension:      XY
bbox:           xmin: 3.5837 ymin: 50.86487 xmax: 7.120998 ymax: 53.44835
epsg (SRID):    NA
proj4string:    NA

如何设置与上一张 map 相同的投影，以便可以在其上绘制坐标点？

Answer 1

另外，还有函数st_set_crs()，可以在管道中使用。例如，
points %>% st_set_crs(st_crs(polygons))