在r中的CSV文件列表上循环colSum

Question

假设我有一个300个CSV文件的列表，使用:

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

每个CSV文件都是一个10x10的矩阵我想循环遍历每个文件以确定每个CSV文件中有多少列其中正好有5个1

实例我是R的新手，我不知道如何在我的列表中的每个文件上循环这个。

非常感谢任何帮助!

Answer 1

我们可能需要使用read.csv(来自base R)读取数据，或者在lapply中循环files后使用fread从data.table读取数据，然后获得colSums

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

数据

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