我正在尝试处理从同一文件路径中的多个.grb2文件提取一个子集，并将它们写入单独的csv文件中的问题。我正在使用以下代码完成工作，并将csv文件存储在与.grb2文件相同的目录中。
path <- "file path"
input.file.names <- dir(path, pattern =".grb2")
output.file.names <-
paste0(tools::file_path_sans_ext(input.file.names),".csv")
for(i in 1:length(input.file.names)){
GRIB <- brick(input.file.names[i])
GRIB <- as.array(GRIB)
tmp2m.6hr <- GRIB[46,13,c(1:20)]
str(tmp2m.6hr)
tmp2m.data <- data.frame(tmp2m.6hr)
write.csv(tmp2m.data,output.file.names[i])
}
我的第一个问题是：如何将csv文件存储在与.grb2文件不同的目录中？ 我的.grb2文件以及由此产生的csv文件以四种不同的类型结束，即00.grb2、06.grb2、12.grb2、18.grb2。生成的csv文件具有以下格式：
第二个问题是：如何将我所有的00.csv，06.csv，12.csv，18.csv文件（同一列中的每个类别）合并到我选择的目录中的单个csv文件中，以下标题：00_tmp2m.6hr，06_tmp2m.6hr，12_tmp2m.6hr，18_tmp2m.6hr，并且还创建了具有其他四个平均值的第五列？我想要的结果如下：
由于我不是经验丰富的用户，所以这对我来说太复杂了。我非常感谢您提供任何帮助。
