我想合并3252 .hgt SRTM光栅使用mosaic_rasters函数从rgdal,因此我需要一个列表的所有光栅文件。
我开始使用以下for循环将所有光栅文件加载到我的中:
list_SRTM3_Africa <- list.files("C://.../01_data/01_SRTM/version2_1_SRTM3/Africa")
for(i in list_SRTM3_Africa) {
assign(unlist(strsplit(i, "[.]"))[1], raster(i))
}但不幸的是,我不知道如何从加载的网格创建一个列表。
对于所有的3252个文件,我不能这样做:
raster_list_SRTM3_Africa <- c(S01E006, S01E007,..., S35E0253)然后,我创建一个大的空Raster女巫,我想用mosaic_rasters命令填充它。
template <- raster(extent_Africa_canvas)
projection(template) <- coord_ref_Africa_canvas
writeRaster(template, file="SRTM3_Africa.tif", format="GTiff")
mosaic_rasters(gdalfile=raster(raster_list_SRTM3_Africa),dst_dataset="SRTM3_Africa.tif",of="GTiff", output_Raster = T)
gdalinfo("SRTM3_Africa.tif")发布于 2017-11-24 12:10:29
我已经使用附加命令完成了它。
raster_list <- c() # initialise the list of rasters
for(i in list_SRTM3_Africa) {
raster_list <- append(raster_list, assign(unlist(strsplit(i, "[.]"))[1], raster(i)))
}发布于 2017-11-24 19:27:11
您可以将lapply用于类似的任务。
library(raster)
list_SRTM3_Africa <- list.files("C://.../01_data/01_SRTM/version2_1_SRTM3/Africa")
rlist <- lapply(list_SRTM3_Africa, raster)通常,您可以这样做:
x <- do.call(merge, rlist)https://stackoverflow.com/questions/47471117
复制相似问题