ループを含む複数のデータフレームから行を削除する

Question

まったく同じ構造を持つ複数のデータフレームがあります。私はすべてのこれらのデータフレームをループし、変数 "ハット" = Dの行を削除したいと思います。以下は、私は単一のインスタンスを持っていますが、複数のデータフレームのためにこれを行うループを記述したいと思います。

final_prices_designations_20161101_20161114.csv <- subset.data.frame(final_prices_designations_20161101_20161114.csv, 
    final_prices_designations_20161101_20161114.csv$Hat == "D") 

Answer 1

これを管理する最も簡単な方法は、どこHat == 'D'削除するには、データとサブセット項目を読み取るためにapply()機能を使用することです。

# first, read list of files from disk 
theCSVFiles <- list.files(...) 
# read each file and subset to eliminate Hat == D 
fileList <- lapply(theCSVFiles,function(x) read.csv(x)[x$Hat!='D',]) 
# if necessary to combine to single file 
aResult <- do.call(rbind,fileList) 

Answer 2

#Install the library 'zonator' for function 'file_path_sans_ext' 
install.packages("zonator") 
library(zonator) 
#Change filesPath with location for your data 
filesPath <- "D:/R/Import files/" 
#file_path_sans_ext : to read files without extension 
files <- file_path_sans_ext(list.files(filesPath)) 
#loop : I chose a loop to create a physicals tables 
for (i in 1:length(files)){ 
    tempTable=read.csv(paste0(filesPath,files[1],".csv"),sep=';') 
    assign(files[i] ,tempTable[tempTable$Hat!='D',]) 
} 
remove(tempTable)# to delete temporary table