如何使用R将坐标存储在矩阵中的SpatialPointsDataframe子集？

install.packages("sp")
library(sp)

# 创建坐标点
coords <- matrix(c(1, 2, 3, 4, 5, 6), ncol = 2)
# 创建SpatialPoints对象
points <- SpatialPoints(coords)
# 创建属性数据框
data <- data.frame(ID = c("A", "B", "C"))
# 创建SpatialPointsDataFrame对象
spdf <- SpatialPointsDataFrame(points, data)

# 选择坐标点的子集
subset_coords <- coords[1:2, ]
# 选择属性数据框的子集
subset_data <- data[1:2, ]
# 使用subset()函数选择SpatialPointsDataFrame的子集
subset_spdf <- subset(spdf, subset = 1:2)

# 创建新的SpatialPoints对象
subset_points <- SpatialPoints(subset_coords)
# 创建新的SpatialPointsDataFrame对象
subset_spdf <- SpatialPointsDataFrame(subset_points, subset_data)