我有使用paste
函数根据条件导入csv的RStudio代码。
Name <- "Sam"
Location <- "Barnsley"
Code <- "A"
Test2 <- read_csv(paste("C:/Users/....,Opposition , " (",Code,")/Vs ",Location, " (",Code,") Export for ",Name,".csv",sep = ""),skip = 8)
我通常在这段导入代码之后加上几行用于计算的代码。为了便于讨论:Run Code Series
我想重新创建这段代码,以便创建一个名称列表,并让代码逐个1运行,然后运行代码。
所需:
Name <- c("Sam","David","Paul","John")
然后能够运行导入代码,并在导入下一个名称之前在每次导入后执行Run Code Series
。
发布于 2018-06-02 06:35:41
我相信从您的问题中,您希望每个名称都有一个单独的数据帧作为结尾。如果是这样的话,你可以这样做:
Names <- c("Sam","David","Paul","John")
Location <- "Barnsley"
Code <- "A"
for(i in Names){
Test2 <- read_csv(paste("C:/Users/....,Opposition" , " (", Code,")/Vs ", Location, " (",Code,") Export for ", i, ".csv", sep = ""), skip = 8)
Run Code Series
assign(paste("df_for_", i, sep = ""), Test2)
}
这将遍历您的名称列表,并在循环中以Test2打开文件。您可以在Test2上执行计算,然后使用粘贴将其分配给列表中特定名称的数据帧。此外,您的read_csv行中的引号不匹配,因此需要更正。
https://stackoverflow.com/questions/50650205
复制相似问题