使用Lubridate将长日期格式转换为含时分秒的短日期格式

问题分析 #

你当前的代码存在两个核心问题：

1. 类型丢失：使用as.Date()会强制将datetime类型转换为仅包含年月日的日期对象，自然丢失时间部分。
2. 列名不匹配：你要转换的列是Date_Time，但代码中调用的是fresh_data$Date.Processed，属于笔误。

另外，目标格式YYYY-MM-DD HH:MM:SS.000需要保留完整的datetime信息，且补充毫秒位（即使原数据无毫秒值），以适配SQL数据库的导入要求。

解决方案 #

使用lubridate包的mdy_hms()函数解析带时区的日期字符串，再通过格式化输出满足SQL要求的格式：

1. 先确保加载lubridate包：

library(lubridate)

2. 修正列名并解析日期时间（包含时区处理）：

# 解析原Date_Time列，自动识别时区偏移
fresh_data$Date_Time_parsed <- mdy_hms(fresh_data$Date_Time, tz = "UTC")

3. 格式化为目标格式（补全毫秒位为.000）：

# 生成符合SQL要求的字符串格式
fresh_data$Date_Time_formatted <- format(fresh_data$Date_Time_parsed, "%Y-%m-%d %H:%M:%S.000")

说明 #

• mdy_hms()可以正确解析Wednesday, April 5, 2023 12:41:44 PM IST +01:00这类包含星期、时区偏移的日期字符串，返回POSIXct类型的完整datetime对象。
• format()函数通过格式符%Y-%m-%d %H:%M:%S保留日期和时间，手动添加.000补全毫秒位，匹配SQL数据库的datetime字段格式要求。
• 如果你的SQL数据库支持直接导入POSIXct类型数据，也可以直接使用Date_Time_parsed列，无需额外格式化。

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