使用list.files读取多个形状文件，然后将它们合并为一个大文件

Question

我在一个目录中有1000多个shape文件，我只想选择其中10个我已经知道其名称的文件，如下所示：

15TVN44102267_Polygons.shp, 15TVN44102275_Polygons.shp
15TVN44102282_Polygons.shp, 15TVN44102290_Polygons.shp
15TVN44102297_Polygons.shp, 15TVN44102305_Polygons.shp
15TVN44102312_Polygons.shp, 15TVN44102320_Polygons.shp
15TVN44102327_Polygons.shp, 15TVN44102335_Polygons.shp

首先，我想使用list.files命令只读取这些形状文件，然后将它们合并成一个大文件。我尝试了以下命令，但它失败了。我将感谢来自社区的任何帮助。

setwd('D/LiDAR/CHM_tree_objects')
files <- list.files(pattern="15TVN44102267_Polygons|
15TVN44102275_Polygons|    15TVN44102282_Polygons|
15TVN44102290_Polygons|    15TVN44102297_Polygons|
15TVN44102305_Polygons|    15TVN44102312_Polygons|
15TVN44102320_Polygons|    15TVN44102327_Polygons|
15TVN44102335_Polygons|    15TVN44102342_Polygons|
15TVN44102350_Polygons|    15TVN44102357_Polygons",
recursive = TRUE, full.names = TRUE)

Answer 1

这里有一个稍微不同的方法。如果您已经知道文件的位置及其文件名，则不需要使用list.files

library(sf)

baseDir <- '/temp/r/'
filenames <- c('Denisonia-maculata.shp', 'Denisonia-devisi.shp')
filepaths <- paste(baseDir, filenames, sep='')

# Read each shapefile and return a list of sf objects
listOfShp <- lapply(filepaths, st_read)

# Look to make sure they're all in the same CRS
unique(sapply(listOfShp, crs))

# Combine the list of sf objects into a single object
combinedShp <- do.call(what = sf:::rbind.sf, args=listOfShp)

然后，combinedShp将成为一个sf对象，它具有您的各个shapefile中的所有功能。然后，您可以使用st_write以您选择的格式将其写出到单个文件。