ディレクトリ内のファイルのリストに対していくつかの演算を繰り返し、新しい動的ファイル名をR、Lapplyで保存しますか？

Question

私はRを初めて使い、別々のデータフレームとしてファイルのリストを読み込み、それぞれに対していくつかの操作を行い、動的ファイル名を持つ別々のファイルとして保存したいと考えています。私はラッフィーを使うべきだと思っているが、確かではない。ここで

を1つのファイルのために働く、私が書いたコードです：

df <- read.fwf('USC00011084.dly', widths = c(21, rep(c(5, 1, 1, 1),31))) 

df2 <- df[-c(3:5, 7:9, 11:13, 15:17, 19:21, 23:25, 27:29, 31:33, 35:37, 39:41, 43:45, 47:49, 51:53, 55:57, 59:61, 63:65, 67:69, 71:73, 75:77, 79:81, 83:85, 87:89, 91:93, 95:97, 99:101, 103:105, 107:109, 111:113, 115:117, 119:121, 123:125)] 

df2[df2=="-9999"]<-NA 

df$new <- rowSums(df2[,2:32], na.rm = TRUE) 

df2["Total"] <- df$new 

colnames(df2) <- c("StationDateType", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "28", "30", "31", "TotalMonthly") 

Prcp <- df2[grep("PRCP", df2$StationDateType),] 

write.table(Prcp, "USC00011084Prcp.txt", sep="\t", row.names=FALSE) 

どのように私は、ディレクトリ内のファイルのリストについては、これを行うことができますか？何か案は？ありがとうございました。

Answer 1

あなたはこれを試すことができます... あなたはあなたのファイルのリストを取得することができます

files <- list.files(getwd()) 

が希望分析を行い、あなたが行ったように、テーブルに結果を書き込み機能を記述します。ここでtools :: file_path_sans_extを使用してファイル名の拡張子を除いてファイルを展開し、最後にtxtに保存するテーブルの名前を付けます。

myFunction <- function(files){ 
    fileName <- tools::file_path_sans_ext(files) 
    df <- read.fwf(files, widths = c(21, rep(c(5, 1, 1, 1),31))) 
    # rest of your code 
    # ... 
    write.table(Prcp, paste0(fileName, "Prcp.txt"), sep="\t", row.names=FALSE) 
} 

lapplyを使用すると、ファイル内の各ファイルに対して関数を実行できます。

lapply(files, function(x) myFunction(x))