是否有R函数可以将CRS (坐标参考系)分配给数据集？或者只有shapefile才有可能？

library(sp)

# 创建一个空间点数据
data <- data.frame(x = c(1, 2, 3), y = c(4, 5, 6))
coordinates(data) <- c("x", "y")

# 设置数据的CRS为WGS84经纬度坐标系
proj4string(data) <- CRS("+proj=longlat +datum=WGS84")

# 打印数据的CRS信息
proj4string(data)

library(sf)

# 创建一个空间点数据
data <- data.frame(x = c(1, 2, 3), y = c(4, 5, 6))
coordinates(data) <- c("x", "y")

# 转换为sf对象
data_sf <- st_as_sf(data, coords = c("x", "y"))

# 设置数据的CRS为WGS84经纬度坐标系
st_crs(data_sf) <- st_crs("+proj=longlat +datum=WGS84")

# 打印数据的CRS信息
st_crs(data_sf)