正如IRFTM所建议的，下面的代码可能符合您的要求..让我知道这是否有帮助..

# directory address where your files are
setwd("path/to/directory")

# list of all (and only) .tif files in that directory
tif_files <- list.files(pattern = "\\.tif$")

# loop through each file and convert to .asc format
for (f in tif_files) {
  # read in the raster object
  rasterObject <- raster(f)
  
  # aggregate the raster object
  aggRaster <- aggregate(rasterObject, fact = 2)
  
  # write aggregated raster object into a .asc file
  writeRaster(aggRaster, file.path(filePath_toSave_File, 
               gsub("\\.tif$", ".asc", file)), format = "ascii")
}