如何将列重命名为今天的日期？

Question

我想将列重命名为今天的日期:

我用以下语法尝试了基本函数Sys.Date()和dplyr pkg:

library(dplyr)
df2 <- df1 %>% select(Column 1, Column 2) %>% rename(toString(Sys.Date())= 'Old Column Name')

不行.任何的想法？

Answer 1

在baseR:

names(df1)[names(df1) == "Old Column Name"] <- as.character(Sys.Date()) 

Answer 2

使用rename_来自dplyr:

df %>% rename_(.dots = setNames("Old Column Name ", sprintf("`%s`", format(Sys.Date(), format = "%Y-%m-%d"))))

要么

# using the built-in 'iris' data:
rename_(iris, .dots = setNames('Species', Sys.Date()))