如何用R将单行或拆分多行的日期行转换为列名？

以下是一个能自动处理单行/两行日期作为列名的自定义R函数，兼容你提到的两种场景：

library(janitor)
library(stringr)

fix_date_colnames <- function(df, date_col = 2) {
  # 提取目标列的前两行内容
  top_two <- df[1:2, date_col]
  
  # 判断是否为拆分式日期：第二行是4位年份且非空
  is_split_date <- str_detect(top_two[2], "^\\d{4}$") && !is.na(top_two[2])
  
  if (is_split_date) {
    # 合并日期字符串：移除多余逗号，拼接后清理空格
    merged_date <- str_squish(str_replace(top_two[1], ",", "") %>% paste(top_two[2]))
    # 更新列名
    colnames(df)[date_col] <- merged_date
    # 移除前两行日期行
    cleaned_df <- df[-c(1, 2), ]
  } else {
    # 单行日期场景直接用janitor的row_to_names处理
    cleaned_df <- row_to_names(df, row_number = 1)
  }
  
  # 将分数列转为数值类型
  cleaned_df[, date_col] <- as.numeric(cleaned_df[, date_col])
  # 重置行名
  rownames(cleaned_df) <- NULL
  
  return(cleaned_df)
}

测试示例 #

场景1：日期在单行 #

df_single <- data.frame(
  student = c(NA, "C", "D", "E"),
  scores = c("May 30, 2022", 31, 39, 35)
)

fix_date_colnames(df_single)

场景2：日期拆分为两行 #

df_split <- data.frame(
  student = c(NA, NA, "C", "D", "E"),
  scores = c("May, 30", "2022", 31, 39, 35)
)

fix_date_colnames(df_split)

两种场景的输出均为：

student  May 30, 2022
1       C      31
2       D      39
3       E      35

函数逻辑说明 #

• 默认处理第二列（可通过date_col参数指定目标列）
• 通过检测第二行是否为4位年份，自动判断日期是单行还是拆分两行
• 拆分场景下自动合并日期字符串并清理格式
• 统一将数值列转为数值类型，重置行名保证输出规范

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