使用 read_csv 创建循环函数 - RStudio
Creating a Loop Function with read_csv - RStudio
我在 RStudio 中有代码,它使用 paste
函数根据条件导入 csv。
Name <- "Sam"
Location <- "Barnsley"
Code <- "A"
Test2 <- read_csv(paste("C:/Users/....,Opposition , " (",Code,")/Vs ",Location, " (",Code,") Export for ",Name,".csv",sep = ""),skip = 8)
我一般都是跟着这个import代码跟着几行代码进行计算。为了论证:Run Code Series
我想重新创建此代码以创建一个名称列表,并让代码 运行 通过每个 1 乘 1 然后是 运行 宁代码。
期望:
Name <- c("Sam","David","Paul","John")
然后能够 运行 导入代码并在每次导入后 Run Code Series
导入下一个名称。
从你的问题来看,我认为你希望每个名字都有一个单独的数据框。如果是这样,您可以这样做:
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 行中的引号不匹配,因此需要更正。
我在 RStudio 中有代码,它使用 paste
函数根据条件导入 csv。
Name <- "Sam"
Location <- "Barnsley"
Code <- "A"
Test2 <- read_csv(paste("C:/Users/....,Opposition , " (",Code,")/Vs ",Location, " (",Code,") Export for ",Name,".csv",sep = ""),skip = 8)
我一般都是跟着这个import代码跟着几行代码进行计算。为了论证:Run Code Series
我想重新创建此代码以创建一个名称列表,并让代码 运行 通过每个 1 乘 1 然后是 运行 宁代码。
期望:
Name <- c("Sam","David","Paul","John")
然后能够 运行 导入代码并在每次导入后 Run Code Series
导入下一个名称。
从你的问题来看,我认为你希望每个名字都有一个单独的数据框。如果是这样,您可以这样做:
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 行中的引号不匹配,因此需要更正。