使用R语言批量文件夹内所有子文件夹的tif数据最后一个子文件夹对应一个list

以下是使用R语言批量读取文件夹内所有子文件夹的tif数据，并将最后一个子文件夹的数据存储在一个list中的示例代码：

library(raster)

# 设置主文件夹路径
main_folder <- "path/to/main_folder"

# 获取主文件夹下所有子文件夹的路径
sub_folders <- list.dirs(main_folder, recursive = FALSE)

# 创建一个空的list，用于存储最后一个子文件夹的tif数据
last_subfolder_data <- list()

# 循环处理每个子文件夹
for(i in 1:length(sub_folders)){
  
  sub_folder <- sub_folders[i]
  
  # 检查是否为最后一个子文件夹
  if(i == length(sub_folders)){
    # 获取最后一个子文件夹下所有tif文件的路径
    tif_files <- list.files(sub_folder, pattern = ".tif$", full.names = TRUE)
    
    # 读取tif文件数据并存储在list中
    tif_data <- lapply(tif_files, raster)
    last_subfolder_data[[sub_folder]] <- tif_data
  }
}

# 输出最后一个子文件夹的tif数据
print(last_subfolder_data)

请替换代码中的main_folder为你的主文件夹路径。此代码将遍历主文件夹下的所有子文件夹，找到最后一个子文件夹，并读取该子文件夹下的所有tif文件的数据。最后，将数据存储在一个list中，并输出该list。

请注意，此代码假设每个子文件夹中只包含tif文件。如果子文件夹中还有其他类型的文件，可能需要根据具体情况进行适当修改