字符型日期天数差计算及空值返回NA的技术实现问题

嘿，我来帮你捋捋问题出在哪哈～你的代码里踩了两个关键小坑，导致没得到想要的结果：

问题分析 #

• 不该用na.omit()删除行：你要的是「对应空值的结果返回NA」，但na.omit()直接把带空值/NA的行删掉了，完全偏离了需求；
• 日期格式匹配错误：你的数据是dd-mm-yyyy（日-月-年）的格式，但你用了"%m%d%y"（月日两位年），这直接导致日期转换失败，这是核心问题！

正确解决方案 #

不用提前删NA，R的日期处理和difftime函数本身就会识别NA，自动返回对应结果，步骤如下：

1. 先把空字符串转成NA（如果读入时没自动转的话） #

假设你的数据框是date_strings，先把空值转为标准NA：

date_strings[date_strings == ""] <- NA

小提示：如果是用read.csv/read.table读入数据，建议直接加na.strings = c("", "NA")参数，读入时就自动把空值转成NA，省得后续处理。

2. 正确转换日期格式 #

你的日期是「日-月-年」，所以格式符要用"%d-%m-%Y"（%d=两位日，%m=两位月，%Y=四位年）：

date_strings$a <- as.Date(date_strings$a, format = "%d-%m-%Y")
date_strings$b <- as.Date(date_strings$b, format = "%d-%m-%Y")

3. 计算天数差（自动保留NA） #

直接用difftime计算，只要a或b是NA，结果就会自动返回NA，完美符合需求：

date_strings$diff_in_days <- difftime(date_strings$a, date_strings$b, units = "days")

测试示例 #

用你给的样例数据加个空值测试：

# 构造测试数据
date_strings <- data.frame(
  a = c("02-07-2012", "13-08-2012", "26-04-2012", NA),
  b = c("18-08-2012", "16-04-2012", "03-05-2012", "01-01-2012")
)

# 执行处理步骤
date_strings[date_strings == ""] <- NA
date_strings$a <- as.Date(date_strings$a, format = "%d-%m-%Y")
date_strings$b <- as.Date(date_strings$b, format = "%d-%m-%Y")
date_strings$diff_in_days <- difftime(date_strings$a, date_strings$b, units = "days")

# 查看结果
print(date_strings)

运行后你会看到第四行的diff_in_days是NA，完全符合要求～

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