如何在R语言中统一时间格式？Excel导入格式异常求助

你遇到的核心问题是数据集里混了两种完全不同类型的日期数据——一种是人类可读的字符串日期，另一种是Excel内部使用的日期序列号（就是那些44568之类的数值），再加上你之前调用parse_date_time()时格式字符串写错了，才导致大量解析失败的警告。下面一步步帮你解决：

先修正格式字符串的低级错误 #

你原来的第一个格式"%d-%m-%y %H%M%S"不对，你的日期字符串里时间部分是带冒号的（比如"30-06-22 20:35:00"），正确格式应该是"%d-%m-%y %H:%M:%S"。

分类型处理两种日期数据 #

我们需要先区分每个元素是字符串日期还是Excel序列号，再分别处理：

library(lubridate)

# 先统一转成字符类型，避免类型混淆
test_char <- as.character(test)

# 1. 识别并处理Excel日期序列号
# 判断哪些元素是可转换为数值的（即Excel序列号）
is_excel_num <- suppressWarnings(!is.na(as.numeric(test_char)))
excel_dates <- as.numeric(test_char[is_excel_num])

# Excel日期从1900-01-01算起，但有闰年bug，所以要调整起点为1899-12-30
# 转成带时间的POSIXct格式
excel_datetime <- as.POSIXct((excel_dates - 1) * 86400, origin = "1899-12-30", tz = "UTC")

# 2. 处理字符串日期：用修正后的格式解析
str_dates <- test_char[!is_excel_num]
str_datetime <- parse_date_time(str_dates, orders = c("%d-%m-%y %H:%M:%S"))

# 3. 合并结果，保持原数据顺序
combined_datetime <- vector("POSIXct", length(test_char))
combined_datetime[is_excel_num] <- excel_datetime
combined_datetime[!is_excel_num] <- str_datetime

转成你想要的输出格式 #

现在把统一后的日期转成d/m/Y H:M AM/PM格式，如果你想要像1/7/2022 0:00 AM这样不带前导零的日/月，可以用下面的代码：

# 带前导零的格式（比如"30/06/2022 08:35 PM"）
final_formatted <- format(combined_datetime, format = "%d/%m/%Y %I:%M %p")

# 不带前导零的格式（比如"30/6/2022 8:35 PM"）
final_formatted_no_leading <- gsub("^ ", "", format(combined_datetime, format = "%e/%m/%Y %I:%M %p"))

验证结果 #

你可以用head()和tail()查看处理后的结果是否符合预期：

head(final_formatted_no_leading)
# 输出示例：
# [1] "30/6/2022 08:35 PM" "30/6/2022 08:40 PM" "30/6/2022 08:45 PM"
# [4] "30/6/2022 08:50 PM" "30/6/2022 08:55 PM" "30/6/2022 09:00 PM"

tail(final_formatted_no_leading)
# 输出示例：
# [1] "1/7/2022 04:45 AM" "1/7/2022 04:50 AM" "1/7/2022 04:55 AM"
# [4] "1/7/2022 05:00 AM" "1/7/2022 05:05 AM" "1/7/2022 05:10 AM"

为什么之前会失败？ #

• 格式字符串漏了时间部分的冒号，导致parse_date_time()无法正确解析字符串日期；
• 44568这类值是Excel的日期序列号（代表从1900-01-01开始的天数+小数时间），不是字符串日期，自然无法用日期格式字符串解析，所以会抛出大量解析失败的警告。

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