次のデータがあります。
NCNC 413
JJNC 183
パーセンテージで表示されるように、別のデータ列を追加したいと思います。the percent NCNC and JJNC values.
理想的には、このスクリプトをフォルダー内の複数のファイルに適用する方法を知りたいです。ありがとう。
次のデータがあります。
NCNC 413
JJNC 183
パーセンテージで表示されるように、別のデータ列を追加したいと思います。the percent NCNC and JJNC values.
理想的には、このスクリプトをフォルダー内の複数のファイルに適用する方法を知りたいです。ありがとう。
あなたはあなたの特定の状況についてあまり明確ではなかったので、ここで多くの仮定をしなければなりません. ファイルが置かれている場所に作業ディレクトリを設定しており、それらが csv ファイルである場合は、次の方法でうまくいく可能性があります。ただし、動作を停止する可能性のある多くの要因があるため、動作しない場合は、詳細を確認する必要がある場合があります.
#Get list of all files in the folder
files <- list.files("./", ".csv")
#Make a function to read in a file, produce the percent column
perc.fun <- function(x) {
dat <- read.csv(x, head = FALSE)
dat$perc <- dat[,2]/sum(dat[,2])
write.table(dat, paste("perc", x, sep = "_"), sep = ",", row.names = FALSE, col.names = FALSE)
}
#Use lapply to go through the list of files and apply the function
lapply(files, perc.fun)
perc_
出力ファイルは、古いファイル名の前にある同じフォルダーにある必要があります。ファイルにヘッダーがある場合は、それを考慮して変更する必要があります。