当r涉及bc和ad时,如何计算r中的日期差

我们转换为 numeric 更改为后 yearmon 同学们,把标志改成 - 对于那些在“评论”中有“BC”的人

library(zoo)
v2 <- as.numeric(as.yearmon(df$dt))

如果我们想让“年”更接近

v2 <- lubridate::year(df$dt) + 
                   (strptime(df$dt, format = "%Y-%m-%d")$yday + 1)/365

i1 <- df$comment == "BC"
v2[i1] <- -1* v2[i1]
diff(v2)
#[1] 124.75