如何用R的文件名替換一批csv文件的變量？

Question

我有725個csv文件，其名稱爲Pheno_Threshold1:725.csv。我需要用它們各自的文件名替換其中每個文件中的變量SCORE，不帶.csv擴展名。

V1   V2  V3  V4  V5  V6 
FID   IID  PHENO  CNT  CNT2  **SCORE** 
PT-CDGH  1  1   8512  40  -0.000371501 

我期望的結果應該是這樣的：

V1   V2  V3  V4  V5  V6 
FID   IID  PHENO  CNT  CNT2  Pheno_Threshold1:725 
PT-CDGH  1  1   8512  40  -0.000371501 

Answer 1

假設你的工作目錄是文件所在的文件夾（或者你可以用setwd或在下面的代碼更改）

for (i in 1:725){ 
file <- read.csv(paste0("Pheno_Threshold",i,".csv"),header=TRUE) 
names(file)[6] <- paste0("Pheno_Threshold",i) 
write.csv(file,paste0("Pheno_Threshold",i,".csv"),row.names=FALSE) 
} 

您可能希望將新的csv輸出到另一個文件夾中以避免覆蓋。