Encuentra el número de meses entre dos fechas en R

En este artículo, discutiremos cómo encontrar la cantidad de meses entre dos fechas en el lenguaje de programación R. 

Ejemplo:

Entrada: Fecha_1 = 2020/02/21

  Fecha_2 = 2020/03/21

Salida: 1

Explicación: En Date_1 y Date_2 solo hay una diferencia en el mes.

Aquí usaremos la función seq() para obtener el resultado. Esta función se utiliza para crear una secuencia de elementos en un Vector. Toma la longitud y la diferencia entre valores como argumento opcional.

Sintaxis: length(seq(desde=fecha_1, hasta=fecha_2, por=’mes’)) -1 

Donde: seq es la función genera una secuencia de números, desde la fecha de inicio hasta la fecha de finalización.

 Ejemplo 1: En el siguiente ejemplo, estamos almacenando dos fechas en dos variables diferentes y al usar length(seq(from=date_1, to=date_2, by=’month’)) estamos encontrando una cantidad de meses entre estas dos fechas .

# creating date_1 variable and storing date in it.
date_1<-as.Date("2020-08-10")
 
# creating date_2 variable and storing date in it.
date_2<-as.Date("2020-10-10")
 
# Here first date will  start from 2020-08-10 and
# end by 2020-10-10.Here increment is done by month.
# This three dates  will be generated as we used
# seq and this dates will be stored in a. 
a = seq(from = date_1, to = date_2, by = 'month'))
 
# Here we are finding length of a and we are subtracting
# 1 because we dont need to include current month.
length(a)-1

Producción:

2

Ejemplo 2: Comprobación con diferentes fechas.

# creating date_1 variable and storing date in it.
date_1<-as.Date("2020-01-23")
 
# creating date_2 variable and storing date in it.
date_2<-as.Date("2020-9-25")
 
# Here first date will  start from 2020-01-23
# and end by 2020-9-25.Here increment is done
# by month.This three dates  will be generated
# as we used seq and this dates will be stored in a. 
a=seq(from = date_1, to = date_2, by = 'month'))
 
# Here we are finding length of a and we are
# subtracting 1 because we dont need to include
# current month.
length(a)-1

Producción:

8