lubridate，计算年，返回NA

Question

你好，我有一个问题，计算某一主题的认识诞生之日起年龄，我使用的lubridate包，样品：

> head(df$hs_dob1c) 
[1] 2002-01-30 2004-12-29 2005-09-15 2002-12-20 2005-07-28 1995-08-28 

首先，我设置：

df$hs_dob1c <- as.Date(df$hs_dob1c, format='%y-%m-%d') 

然后：

today <- as.Date(Sys.Date(), format="%y-%m-%d") 
ref_date <- as.Date(df$hs_dob1c, format="%y-%m-%d") 

的问题是当我设定的基准，因为：

> head(df$hs_dob1c) 
[1] NA NA NA NA NA NA 

Answer 1

不知道你在哪里使用lubridate，但尽量

df$hs_dob1c <- as.Date(df$hs_dob1c, format='%Y-%m-%d') 

，而不是

df$hs_dob1c <- as.Date(df$hs_dob1c, format='%y-%m-%d') 

%y表示2位数的一年中，你有一个4位数字的年份应参考as %Y

Answer 2

直到现在您还没有使用lubridate，但它会与基地[R，工作过：

hs_dob1c <- as.Date(
    c("2002-01-30", "2004-12-29", "2005-09-15", "2002-12-20", "2005-07-28" ,"1995-08-28"), 
    format='%Y-%m-%d') 

today <- as.Date(Sys.Date(), format="%Y-%m-%d") 

difftime(today, hs_dob1c, units = "days") 
# Time differences in days 
# [1] 5269 4205 3945 4945 3994 7616 

你必须改变format='%y-%m-%d'到format='%Y-%m-%d'

随着lubridate它的工作是这样的：

library("lubridate") 
hs_dob1c <- ymd(
    c("2002-01-30", "2004-12-29", "2005-09-15", "2002-12-20", "2005-07-28" ,"1995-08-28")) 

today <- ymd(Sys.Date()) 

difftime(today, hs_dob1c,units = "days") 
# Time differences in days 
# [1] 5269 4205 3945 4945 3994 7616