R语言日期运算时报non-numeric argument to binary operator错误如何解决

你遇到的报错核心原因是两个输入时间字段为字符串类型，直接执行减法操作时R不会自动计算时间差值，反而会将两个字符串拼接为一个新的字符串存入Angio_time字段，该字段为字符型自然无法执行除法运算。

解决步骤 #

• 第一步：将两个时间字段转换为R可识别的标准日期时间格式
• 第二步：使用difftime函数计算两个时间的差值，得到数值型结果后即可正常做除法运算

# 转换时间字段为标准POSIXct格式，注意匹配你数据的「日/月/年 时:分」格式
dt_test_first_20$X4.18.Angio.date.time <- as.POSIXct(dt_test_first_20$X4.18.Angio.date.time, format = "%d/%m/%Y %H:%M")
dt_test_first_20$X3.01.Onset.of.Symptoms <- as.POSIXct(dt_test_first_20$X3.01.Onset.of.Symptoms, format = "%d/%m/%Y %H:%M")

# 筛选符合条件的行计算时间差，单位为秒
in_hosp = dt_test_first_20$X2.39.Admission.Method == '3. already in this hospital'
dt_test_first_20$Angio_time[in_hosp] = as.numeric(difftime(
  dt_test_first_20$X4.18.Angio.date.time[in_hosp],
  dt_test_first_20$X3.01.Onset.of.Symptoms[in_hosp],
  units = "secs"
))

# 此时可正常运行除法代码，得到小时级结果
Time_subset$Angio_time = Time_subset$Angio_time / 3600

如果你需要直接得到小时单位的结果，也可以直接将difftime的units参数设置为"hours"，省去后续除以3600的步骤。

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