【发布时间】:2022-01-07 10:01:58
【问题描述】:
我正在尝试重构我的代码,而不是为 dir_list 中的每个元素创建一个循环。我需要创建一个新的数据框,并在循环遍历它时根据 dir_list 中的内容为其分配名称。但它给了我错误“粘贴错误(i)
for (i in filesNames) {
for (j in dir_list) {
data <- read_table(paste(workDir,j, "/", i ,".txt", sep = ""))
data <- data %>% mutate(quarter = j)
if (j == dir_list[1]) {
AllData <- data
} else {
AllData <- bind_rows(AllData, data)
}
if (j == dir_list[length(dir_list)]) {
paste(i) <- AllData;
}
}
}
【问题讨论】: