R-如何将代码应用于多个Excel工作簿/床单

Question

我有三个不同的excel工作簿，每个工作簿，每张6张（选项卡）。
所有文件的名称都处于相同的位置，并且具有长名：
即" 2：NIH-IN NIH-IN-IN-99-D99 MDSC面板NIH 2-99-99"

我使用以下代码删除了额外的标签，并仅获取我想要的名称（NIH-in-##）

#Load Data 
test <- read.csv("C:/Users/####/Desktop/test.csv")
View(test)
#Take original and remove later chunk following "D" (day)   
df<-separate(test, Sample, c("Keep", "Disc"), "-D", extra = "merge")  
#Split both IN and OUT 
df2<-separate(df, Keep, c("Dont Need", "Need"), sep= "(['NIH-IN '\'NIH-OUT '\])", extra = "merge") 
df2<-separate(df2, Need, c("Dont Need", "Need"), " ", extra = "merge")

我想知道如何应用此代码，以使其通过我的三个Excel工作簿，并（如果可能的话）通过每个代码。

我是编码的新手，所以请原谅任何错误。

Answer 1

您是否正在寻找18次运行代码的循环？您需要将结果存储在列表中。

results <- list()
i <- 1
for (filename in c("filename1", "filename2", "filename3")) {
x <- read.csv(filename)
x <- separate(...)
x <- separate(...)
x <- separate(...)
results[i] <- x
i <- i + 1
}