如何编写R函数批量重命名数据框的日期格式列（排除首列）

直接封装一个函数，自动将除第一列（CODE_S）外的日期列名从dd/mm/yyyy格式转换为yyyy-mm-dd格式：

rename_col_df <- function(df) {
  # 保留第一列名称，转换剩余列的日期格式
  new_names <- c(
    colnames(df)[1],
    format(as.Date(colnames(df)[-1], format = "%d/%m/%Y"), "%Y-%m-%d")
  )
  colnames(df) <- new_names
  return(df)
}

使用示例 #

1. 复现测试数据：

df <- data.frame(
  CODE_S = c(1, 2, 3),
  COL2 = c(10, 20, 30),
  COL3 = c(15, 25, 35)
)
colnames(df) <- c("CODE_S", "01/10/2023", "01/11/2023")

2. 调用函数并重命名列：

df_renamed <- rename_col_df(df)

# 验证列名结果
colnames(df_renamed)
# 输出：[1] "CODE_S"    "2023-10-01" "2023-11-01"

说明 #

• 函数支持批量处理任意数量的日期列，无需手动逐个指定
• 如果原始日期格式不是dd/mm/yyyy，只需修改as.Date()中的format参数即可适配

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