如何拆分已经拆分的数据框并保存在R中的多个文件夹中

Question

我已将我的数据框拆分为 100 个小标题，如下所示。每个 tibble 中有 10 个变量，包括 class_name。创建名为每个 tibble 的文件夹并将每个 tibble 重新拆分为 class_names 并保存为单独的 CSV 的最佳方法是什么。

我尝试了几种 lapply(finction(x), paste0()) 的组合，但都失败了。

所以假设分割的数据框是这样的：

MyDF                          Variables
1_A →   tibble with 10 rows class_name  Green, purple, 
        …
2_B …                          type     
3_C                             ..  
..                              .   
100_XX                              .

所以预期的输出是：

/1_A/   →   1_A.Green.csv
                1_A.purple.csv
                1_A. ….

/2_B/   …       2_B.yellow.csv  
                 …

..      
100_XX

Answer 1

由于您不提供示例数据，我将使用数据集 datasets::mtcars。您需要调整解决方案以适应您的数据。

根据您的评论，我假设您已经使用以下内容拆分数据，这将返回一个列表：

dfs <- split(mtcars, mtcars$vs)

下一步是使用列表元素的名称迭代此列表。为每个列表元素名称创建一个目录，然后拆分每个数据框并使用子列表元素名称迭代生成的子列表，将每个数据框写入相应的目录file.path(dn, paste0(fn, ".csv"))：

for (dn in names(dfs)){
    dir.create(dn)
    sub_dfs <- split(dfs[[dn]], dfs[[dn]]$gear)
    for (fn in names(sub_dfs)){
        write.csv(sub_dfs[[fn]], file.path(dn, paste0(fn, ".csv")))
    }
}

上面应该创建两个目录“0”和“1”，每个目录都包含一些 CSV。