R语言处理SPSS导入日期列：格式化并计算两日期天数差

示例数据构造 #

先模拟你的数据集结构：

df <- data.frame(
  spss_char_date = c("12-Mar-2020 15:51:32", "06-Apr-2019 17:08:03"),
  standard_date = as.Date(c("2020-03-15", "2019-04-10")) # 匹配目标格式的日期列
)

方案一：Base R（适合大数据集，速度更快） #

用基础函数完成日期解析、格式转换和差值计算：

1. 提取日期部分并转为Date类型

# 解析字符型日期为日期时间对象，自动剔除时间部分保留纯日期
df$spss_date_only <- as.Date(as.POSIXct(df$spss_char_date, format = "%d-%b-%Y %H:%M:%S"))

格式参数说明：%d对应两位数日期，%b对应英文缩写月份（匹配Mar/Apr），%Y对应四位数年份，后续为时间格式。

2. 转为「年-月-日」字符格式（若目标列为字符型）

df$spss_date_ymd <- format(df$spss_date_only, "%Y-%m-%d")

3. 计算天数差
   两列均为Date类型时，直接相减即可得到天数差：

df$day_difference <- df$standard_date - df$spss_date_only

方案二：lubridate包（语法更简洁） #

之前失败大概率是用错了解析函数，用dmy_hms匹配你的日期格式即可：

library(lubridate)

# 解析为日期时间对象后提取纯日期
df$spss_date_only <- as.Date(dmy_hms(df$spss_char_date))

# 转为「年-月-日」字符格式（可选）
df$spss_date_ymd <- format(df$spss_date_only, "%Y-%m-%d")

# 计算天数差
df$day_difference <- df$standard_date - df$spss_date_only

注意事项 #

• 若系统为中文环境，需先设置locale以识别英文月份缩写：

Sys.setlocale("LC_TIME", "English")

• 两种方案均支持批量处理整列，无需循环，适配大数据集。

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