如何将R语言数据框中数字形式的日期列名转换为日期类型

我的R语言数据框从第二列开始的列名本质是日期，但目前以数字形式显示，请问如何将这些列名转换为日期格式？

数据示例 #

data1<-structure(list(`US Shopify + Amazon` = c("Total Net Orders", 
"Total Net Revenue", "Total Net Units Sold", "Order (Shopify) - without case", 
"Net Revenue (Shopify) - without case"), `44927` = c("909", "90361.69", 
"920", "230", "21470.959999999999"), `44928` = c("978", "97577.68", 
"988", "232", "21288.12"), `44929` = c("886", "87583.69", "911", 
"207", "17793.03"), `44930` = c("898", "89988.53", "929", "167", 
"14498.55")), row.names = c(NA, -5L), class = c("tbl_df", "tbl", 
"data.frame"))

解决方案 #

如果之前的代码错误转换了列值而非列名，可按以下步骤修改列名：

1. 提取第二列及之后的列名
2. 将数字格式的列名转换为日期格式（这里的数字是Excel日期序列号，所以origin设为"1899-12-30"）
3. 将转换后的日期格式化为YYYY-MM-DD的字符串，并重命名对应列

完整代码：

# 获取第二列起的列名
date_col_names <- names(data1)[2:ncol(data1)]
# 数字列名转日期（Excel日期序列号）
new_date_names <- as.Date(as.numeric(date_col_names), origin = "1899-12-30")
# 重命名列名
names(data1)[2:ncol(data1)] <- format(new_date_names, "%Y-%m-%d")

内容的提问来源于stack exchange，提问作者firmo23