应用函数从今天开始数月

Question

我试图在数据集中创建一个列，告诉我客户与公司一起的（大致）月数。

这是我目前的尝试：

dat <- data.frame(ID = c(1:4), start.date = as.Date(c('2015-04-09', '2014-03-  24', '2016-07-01', '2011-02-02')))
dat$months.customer <- apply(dat[2], 1, function(x) (as.numeric(Sys.Date())- as.numeric(x))/30)

它返回所有NAs

Answer 1

您可以使用difftime：

dat$months.customer <- 
as.numeric(floor(difftime(Sys.Date(),dat$start.date,units="days")/30))

#   ID start.date months.customer
# 1  1 2015-04-09              16
# 2  2 2014-03-24              29
# 3  3 2016-07-01               1
# 4  4 2011-02-02              67