如何用R将Excel无序列日期转为指定年月序列格式？

我有一个Excel文件的日期列是无序的，需要将该列转换为从2023年8月开始的有序格式，例如把4 Aug转为04-08-2023，2024年的日期自动顺延。

我尝试过的代码： #

FixDate-> as.Date(xlsx_filePath$Date, origin = "4 Aug")
openxlsx::convertToDate(xlsx_filePath$Date)

或

FixDate-> as.Date(xlsx_filePath$Date,  format = "%d/%m/%Y")
openxlsx::convertToDate(xlsx_filePath$Date)

现有数据： #

期望输出： #

解决方案 #

核心思路： #

1. 正确解析原始日期格式（日 月份缩写，对应格式符%d %b）
2. 根据规则设置年份：8-12月归为2023年，1-7月归为2024年
3. 格式化为dd-mm-yyyy的字符串格式
4. 按日期排序

代码实现（base R版本）： #

# 加载openxlsx包读取Excel
library(openxlsx)

# 读取文件，替换为你的文件路径
df <- read.xlsx("your_file_path.xlsx")

# 1. 解析原始日期为Date对象（临时设为2023年）
df$Date <- as.Date(df$Date, format = "%d %b")

# 2. 调整年份：月份<8的改为2024年
date_lt <- as.POSIXlt(df$Date)
date_lt$year[date_lt$mon + 1 < 8] <- date_lt$year[date_lt$mon + 1 < 8] + 1
df$Date <- as.Date(date_lt)

# 3. 格式化为dd-mm-yyyy格式
df$Date <- format(df$Date, "%d-%m-%Y")

# 4. 按日期排序
df <- df[order(df$Date), ]

代码实现（dplyr+lubridate版本，更简洁）： #

# 加载所需包
library(readxl)
library(dplyr)
library(lubridate)

# 读取文件
df <- read_excel("your_file_path.xlsx")

df <- df %>%
  # 解析日期
  mutate(Date = dmy(Date)) %>%
  # 调整年份
  mutate(Date = if_else(month(Date) < 8, 
                        Date + years(1), 
                        Date)) %>%
  # 格式化日期
  mutate(Date = format(Date, "%d-%m-%Y")) %>%
  # 按日期排序
  arrange(Date)

说明： #

之前尝试的代码问题在于：

• 没有匹配原始日期的格式（原始是%d %b而非%d/%m/%Y）
• 未处理年份的顺延逻辑，导致1-7月的日期无法正确归为2024年

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