在for循环中合并数据框

Question

输入：6个具有不同分段的CSV，第14行存储不同的分段

预期输出：制作单个csv（通过附加6个不同的CSV），其中也包含分段。

library(stringr)
for (i in 1:6){
name<-paste("Page url - Fri.  1 May 2015 - Tue. 19 May 2015 ","(",i,")",".csv",sep="")
CSVlines <- readLines(name)
v1 <- str_extract_all(CSVlines[14], "\\w+")[[1]]
d1 <-read.csv(name,skip=22,header=TRUE)
df1<-cbind(d1, setNames(list(v1[2]), v1[1]))
}