在R中重采样多个tiff文件

library(raster)

# 设置输入文件路径
input_path <- "path/to/input/files"

# 设置输出文件路径
output_path <- "path/to/output/files"

# 获取输入文件列表
input_files <- list.files(input_path, pattern = ".tif$", full.names = TRUE)

# 循环处理每个输入文件
for (file in input_files) {
  # 读取输入文件
  raster_data <- raster(file)
  
  # 设置目标分辨率
  target_res <- c(0.1, 0.1)  # 设置为0.1度
  
  # 进行重采样
  resampled_data <- resample(raster_data, target_res, method = "bilinear")
  
  # 构建输出文件路径
  output_file <- file.path(output_path, basename(file))
  
  # 保存重采样后的数据为tiff文件
  writeRaster(resampled_data, filename = output_file, format = "GTiff", overwrite = TRUE)
}