如何用dplyr重命名R中tibble无名列并统一日期格式

首先加载所需的R包：

library(dplyr)
library(lubridate) # 用于自动识别多种日期格式

推荐方案（避免重复列名） #

由于将所有奇数列命名为date会导致列名重复，后续操作容易出错，建议给每个奇数列命名为date_1、date_2这类唯一名称，同时统一日期格式：

data_clean <- data %>%
  # 批量重命名奇数位置的列
  rename_with(
    ~ paste0("date_", seq_along(.)), 
    .cols = seq(1, ncol(.), by = 2)
  ) %>%
  # 将这些列转换为统一的Date格式
  mutate(
    across(
      starts_with("date_"), 
      ~ parse_date_time(., orders = c("ymd", "dmy", "mdy", "Ymd HMS")) %>% as.Date()
    )
  )

按原需求（保留重复列名） #

如果坚持要将所有奇数列命名为date，可以通过列位置定位来操作（避免列名重复导致的选择问题）：

data_clean <- data %>%
  # 重命名奇数位置的列为"date"
  rename_with(~ "date", .cols = seq(1, ncol(.), by = 2)) %>%
  # 转换奇数位置列的日期格式
  mutate(
    across(
      seq(1, ncol(.), by = 2), 
      ~ parse_date_time(., orders = c("ymd", "dmy", "mdy")) %>% as.Date()
    )
  )

关键说明 #

• rename_with()是dplyr中用于批量重命名列的函数，.cols参数指定要操作的列（这里用seq(1, ncol(.), by=2)选中所有奇数位置的列）。
• parse_date_time()来自lubridate包，能自动识别多种常见日期格式，orders参数可以列出你的数据中可能存在的日期格式（比如"ymd"代表年-月-日，"dmy"代表日-月-年），如果不确定格式，可暂时设为"any"（但可能出现识别错误，建议尽量明确格式）。
• 最后用as.Date()将识别后的日期转换为标准的Date类型。

内容的提问来源于stack exchange，提问作者Homer Jay Simpson