有条件地将行添加到数据框

Question

嗨，我有n个数据框，分别通过for循环打开

myfiles <- list.files(pattern="*.dat")
myfilesContent <- lapply(myfiles, read.table, header=T, quote="\"")
for (i in 1:length(myfiles)){
 ...
}

我想做的是只打开一个遵守某种条件的行，并逐行合并它们，例如

df <- data.frame
for (i in 1:length(myfiles)){
  if(unique(myfilesContent[[i]]$V1) %in% test) df <-merge(df,myfilesContent[[i]])
}

但是我得到这个错误

Error in as.data.frame.default(x) : 
  cannot coerce class '"function"' into a data.frame

非常感谢

Answer 1

尝试以下示例：

  do.call(rbind,lapply(myfiles, function(x){
          dt <- read.table(x, header=TRUE, quote="\"")
          if (dt$V1 %in% test) dt 
   }))

您阅读并且仅保留验证情况的那些。 然后，您绑定结果。