小编Sun*_*unv的帖子

我有一个包含近2,000个.csv文件的目录.

每个文件都具有以下结构(显示500行中的4个):

                       Date;QOF
1    2004-01-04 - 2004-01-10;9
2    2004-01-11 - 2004-01-17;11
3    2004-01-18 - 2004-01-24;13
4    2004-01-25 - 2004-01-31;13

"QOF"列也是.csv文件的名称,每个文件都有一个唯一的名称(例如"MSTF","XQS"等).我希望每个.csv文件中的这一列合并到第一个正在读取的.csv文件,其中还包含日期变量.换句话说,我想保留第一个文件中的所有列,并将所有其他.csv文件中的第二列合并到此文件中.最终结果应该是这样的:

                    Date;QOF;MSTF;XQS
1    2004-01-04 - 2004-01-10;9;10;8
2    2004-01-11 - 2004-01-17;11;11;5
3    2004-01-18 - 2004-01-24;13;31;2
4    2004-01-25 - 2004-01-31;13;45;23

到目前为止,我试过这个:

filenames <- list.files()

do.call("cbind", lapply(filenames, read.csv, header = TRUE))

以下代码:

date.seq <- as.Date("2007-10-01"):as.Date("2007-10-31")
new.dates <- data.frame(date = as.Date(date.seq, origin = "1970-01-01"))

给出以下输出:

> new.dates
  date
1 2007-10-01
2 2007-10-02
3 2007-10-03
4 2007-10-04
5 2007-10-05

我希望日期为dd-mm-yyyy格式.

我试过as.Date(new.dates, "%d/%m/%y")没有成功.