按多列分组并将每个组写入csv [重复]

Question

BRAND ID    FIRST_NAME  CITY
6     1167  Sara        Sarasota
6     1167  Jeffrey     Sarasota
6     1167  Shane       Sarasota
8     1167  Paul        Lakewood Ranch
6     10931 Carol       Grosse Pointe
6     10931 Nick        Detroit
8     10931 William     Grosse Pointe Farms
6     4935  Debra       Lacoochee
6     4935  Mark        Zephyr hills
6     4935  Michael     Zephyr hills

我有一个类似于上表的 .csv 文件，其中包含我需要拆分为多个 .csv 文件的客户信息。

每个文件都需要按品牌和 ID 进行拆分。在上面的示例中，将有 2 个 .csv 文件，其中 (Brand = 6, ID = 1167) 有 3 条客户记录，而 (Brand = 8, ID = 1167) 有 1 条客户记录。

我需要一些可以检测每个唯一 ID 的代码的帮助，因为我的数据文件中有 30 个不同的 ID。

Answer 1

使用data.table 包我们可以使用以下内容：

按一列分组：

library(data.table)
setDT(mydat)[, write.csv(c(.BY,.SD), paste0("BRAND_ID_", .BY, ".csv")), by=BRAND]

按两（或更多）列分组：

对于多个列，我可以考虑添加一个帮助列，它是用于分组的所需列的组合：

library(data.table)
setDT(mydat)[, tempcol:=paste(ID,BRAND,sep="_")]
setDT(mydat)[, write.csv(.SD, paste0("ID_BRAND_", .BY, ".csv")),by=tempcol]

这为每个 ID 和品牌的唯一组合提供了 5 个文件。它们将被保存到当前工作目录。如果您想将输出放在所需的目录中，请阅读 ?write.csv。

数据：

read.table(text='BRAND ID    FIRST_NAME  CITY
                6     1167  Sara        Sarasota
                6     1167  Jeffrey     Sarasota
                6     1167  Shane       Sarasota
                8     1167  Paul        Lakewood_Ranch    
                6     10931 Carol       Grosse_Pointe
                6     10931 Nick        Detroit
                8     10931 William     Grosse_Pointe_Farms
                6     4935  Debra       Lacoochee
                6     4935  Mark        Zephyr_hills
                6     4935  Michael     Zephyr_hills', header=T, quote="") -> mydat