R语言批量读取文件夹内所有子文件夹的tif数据

以下是使用R语言批量读取文件夹内所有子文件夹的tif数据，并将最后一个子文件夹的数据存储在一个list中的示例代码：\n\nR\nlibrary(raster)\n\n# 设置主文件夹路径\nmain_folder <- "path/to/main_folder"\n\n# 获取主文件夹下所有子文件夹的路径\nsub_folders <- list.dirs(main_folder, recursive = FALSE)\n\n# 创建一个空的list，用于存储最后一个子文件夹的tif数据\nlast_subfolder_data <- list()\n\n# 循环处理每个子文件夹\nfor(i in 1:length(sub_folders)){\n \n sub_folder <- sub_folders[i]\n \n # 检查是否为最后一个子文件夹\n if(i == length(sub_folders)){\n # 获取最后一个子文件夹下所有tif文件的路径\n tif_files <- list.files(sub_folder, pattern = ".tif$", full.names = TRUE)\n \n # 读取tif文件数据并存储在list中\n tif_data <- lapply(tif_files, raster)\n last_subfolder_data[[sub_folder]] <- tif_data\n }\n}\n\n# 输出最后一个子文件夹的tif数据\nprint(last_subfolder_data)\n\n\n请替换代码中的main_folder为你的主文件夹路径。此代码将遍历主文件夹下的所有子文件夹，找到最后一个子文件夹，并读取该子文件夹下的所有tif文件的数据。最后，将数据存储在一个list中，并输出该list。\n\n请注意，此代码假设每个子文件夹中只包含tif文件。如果子文件夹中还有其他类型的文件，可能需要根据具体情况进行适当修改。