Funktion anwenden, um Monate ab dem heutigen Datum zu erhalten

Question

Ich versuche eine Spalte in einem Dataset zu erstellen, die mir die (ungefähre) Anzahl von Monaten angibt, die ein Kunde mit der Firma verbracht hat.

Dies ist mein aktueller Versuch:

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) 

Es Rückkehr aller NAs

Answer 1

Sie difftime verwenden können:

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