我有这段代码可以读取目录中的所有 CSV 文件。
nm <- list.files()
df <- do.call(rbind, lapply(nm, function(x) read_delim(x,';',col_names = T)))
我想以将文件名附加到数据的方式修改它。结果将是一个包含所有 CSV 文件的单个数据框，并且在数据框中，有一列指定数据来自哪个文件。怎么做？
例如，我有一个名为 x 的数据集：
| 客户ID | A | 乙 | C |
|---|---|---|---|
| 1 | 1 | 0 | 0 |
| 2 | 0 | 1 | 1 |
| 3 | 0 | 0 | 1 |
| 4 | 1 | 1 | 1 |
然后我想创建另一个表，计算从 a 到 c 的每一列有 1 的次数，以及其他也有 1 的列的组合。
所以结果将是这个表：
| A | 乙 | C | |
|---|---|---|---|
| A | 1 | 1 | 1 |
| 乙 | 1 | 0 | 2 |
| C | 1 | 2 | 1 |
因此，第二个表的第一行将如下所示： 有多少次只有 a 列有 1？这只是一次。a 和 b 中有多少次都是 1？这只是一次。a 和 c 中有多少次都是 1？这种事只发生过一次。
我怎样才能在 R 中轻松地做到这一点？请注意，我只想关注列为 1 的情况。