R - 使用Sys.Date（）的动态头

Question

我有一个数据框。

df <- data.frame(matrix(data = rexp(200, rate = 10), nrow = 10, ncol = 20))

现在我真的想使用今天的日期和Sys.Date() + ncol(df)转发来重命名标头。所以，我的数据框架看起来像这样

2014-12-12   2014-12-13    2014-12-14   ..... 
values         values        values     .....

我尝试了什么

colnames(df) <- c(seq.Date(from = Sys.Date(), 
                to = Sys.Date() + ncol(df), by = "days"))

并且

colnames(df) <- gsub(pattern = " ", x = c(seq.Date(from = Sys.Date(), 
                to = Sys.Date() + ncol(df), by = "days")), replacement = ",")

我想这很简单，但我似乎无法弄明白。如果我只是写一些更静态的东西，比如

colnames(df)[1] <- Sys.Date()
colnames(df)[2] <- Sys.Date() + 1

我只是得到数据的数字表示，而不是＆＃34;％Y-％m％ - ％d＆＃34;中的日期。

Answer 1

names(df) <- as.character(Sys.Date() + seq_along(df) - 1)