在 R 中的 CSV 文件列表上循環 colSum

Question

假設我有一個使用以下命令加載的 300 個 CSV 文件的列表：

files <- list.files(".../files", pattern=".csv")

每個 CSV 文件都是一個 10x10 矩陣，我想遍歷每個文件以確定每個 CSV 中有多少列，其中正好有 5 個 1 的實例

我是 R 的新手，我不確定如何在列表中的每個文件上循環。

非常感謝任何幫助！

Answer 1

我們可能需要使用read.csv讀取數據（來自base R ）或使用來自data.table的fread ，然后在lapply中colSums files ，

sapply(files, function(x) sum(colSums(read.csv(x) == 1, na.rm = TRUE) == 5))

數據

files <- list.files(".../files", pattern="\\.csv", full.names = TRUE)