Wie berechne ich das Monatsintervall in einem Datensatz?

Question

I haben die folgenden Daten-Set, und ich möchte das Monatsintervall für jede Zeile berechnen (einschließlich dem Startmonat und Ende Monat)

month1 <- c("Jul-96","Aug-96","Sep-96") 
month2 <- c("Jul-97","Sep-97","Nov-97") 

data <- as.data.frame(cbind(month1,month2)) 

I zu den Ergebnissen möchten, wie unten einen Datensatz sein.:

month1 month2 interval 
Jul-96 Jul-97 13 
Aug-96 Sep-97 14 
Sep-96 Nov-97 15 

Vielen Dank.

Answer 1

Wir diese und den Unterschied

durch Umwandlung zu yearmon class von zoo tun bekommen könnten

library(zoo) 
12*(as.yearmon(data$month2, '%b-%y')-as.yearmon(data$month1, '%b-%y'))+1 
#[1] 13 14 15 

Oder lapply Schleife über die Spalten verwenden, um yearmon Klasse umwandeln, in der die Differenz der entsprechenden Werte erhalten list Elemente mit Reduce, nehmen Sie die absolute (falls es negativ ist) und die arithmetische wie oben.

abs(Reduce(`-`,lapply(data, as.yearmon, format = '%b-%y')))*12 + 1 
#[1] 13 14 15 

Answer 2

Es ist nicht allzu hübsch, aber zu einem as.POSIXlt Datetime-Objekt durch Umwandlung, können Sie ein paar einfache Summen dann tun:

with(
    lapply(data, function(x) as.POSIXlt(paste0("01-", x), format="%d-%b-%y", tz="UTC")), 
    (month2$year - month1$year)*12 + month2$mon - month1$mon + 1 
) 
#[1] 13 14 15