Skip to main content
se añadieron 608 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Lo que puedes hacer es una función que genere una secuencia de fechas por mes y quedarnos con la fecha del mes esperado:

addmonth <- function(d, m) {
 seq(d, by="month", length.out=m+1)[m+1]
}

ejemplo:

addmonth(as.Date("31/03/2022", format = "%d/%m/%Y"), 6)
[1] "2022-10-01"

Si quieres trabajar con un vector puedes perfectamente hacer algo así:

addmonth <- function(dl, m) {
  as.Date(sapply(dl, FUN=function(d) {
    seq(d, by="month", length.out=m+1)[[m+1]]
  }))
}


fechas <- seq(as.Date("31/03/2022", format = "%d/%m/%Y"), 
              by="day", length.out=15)

addmonth(fechas, 6)

 [1] "2022-10-01" "2022-10-01" "2022-10-02" "2022-10-03"
 [5] "2022-10-04" "2022-10-05" "2022-10-06" "2022-10-07"
 [9] "2022-10-08" "2022-10-09" "2022-10-10" "2022-10-11"
[13] "2022-10-12" "2022-10-13" "2022-10-14"

Lo que puedes hacer es una función que genere una secuencia de fechas por mes y quedarnos con la fecha del mes esperado:

addmonth <- function(d, m) {
 seq(d, by="month", length.out=m+1)[m+1]
}

ejemplo:

addmonth(as.Date("31/03/2022", format = "%d/%m/%Y"), 6)
[1] "2022-10-01"

Lo que puedes hacer es una función que genere una secuencia de fechas por mes y quedarnos con la fecha del mes esperado:

addmonth <- function(d, m) {
 seq(d, by="month", length.out=m+1)[m+1]
}

ejemplo:

addmonth(as.Date("31/03/2022", format = "%d/%m/%Y"), 6)
[1] "2022-10-01"

Si quieres trabajar con un vector puedes perfectamente hacer algo así:

addmonth <- function(dl, m) {
  as.Date(sapply(dl, FUN=function(d) {
    seq(d, by="month", length.out=m+1)[[m+1]]
  }))
}


fechas <- seq(as.Date("31/03/2022", format = "%d/%m/%Y"), 
              by="day", length.out=15)

addmonth(fechas, 6)

 [1] "2022-10-01" "2022-10-01" "2022-10-02" "2022-10-03"
 [5] "2022-10-04" "2022-10-05" "2022-10-06" "2022-10-07"
 [9] "2022-10-08" "2022-10-09" "2022-10-10" "2022-10-11"
[13] "2022-10-12" "2022-10-13" "2022-10-14"
Publicación recuperada por Patricio Moracho
se eliminaron 194 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

El problema esLo que la suma directa, como lapuedes hacer es una función que esta hciendo, no siempre coincidegenere una secuencia de fechas por mes y quedarnos con unla fecha válida, por ejemplodel mes esperado:

#addmonth Suma<- válida
as.datefunction("30/03/2022"d, format = "%d/%m/%Y") + months(6m)
[1] "2022-09-30"
{
# Suma inválida seq(no existed, elby="month", 31/9length.out=m+1)[m+1]
}

ejemplo:

addmonth(as.dateDate("31/03/2022", format = "%d/%m/%Y") + months(6)
[1] NA

si utilizas lubridate tienes las función %m+% que se asegura de no superar el último día del mes:

dmy("31/03/2022") %m+%, months(6)
[1] "2022-0910-30"01"

El problema es que la suma directa, como la que esta hciendo, no siempre coincide con un fecha válida, por ejemplo:

# Suma válida
as.date("30/03/2022", format = "%d/%m/%Y") + months(6)
[1] "2022-09-30"

# Suma inválida (no existe el 31/9)
as.date("31/03/2022", format = "%d/%m/%Y") + months(6)
[1] NA

si utilizas lubridate tienes las función %m+% que se asegura de no superar el último día del mes:

dmy("31/03/2022") %m+% months(6)
[1] "2022-09-30"

Lo que puedes hacer es una función que genere una secuencia de fechas por mes y quedarnos con la fecha del mes esperado:

addmonth <- function(d, m) {
 seq(d, by="month", length.out=m+1)[m+1]
}

ejemplo:

addmonth(as.Date("31/03/2022", format = "%d/%m/%Y"), 6)
[1] "2022-10-01"
Publicación eliminada por Patricio Moracho
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

El problema es que la suma directa, como la que esta hciendo, no siempre coincide con un fecha válida, por ejemplo:

# Suma válida
as.date("30/03/2022", format = "%d/%m/%Y") + months(6)
[1] "2022-09-30"

# Suma inválida (no existe el 31/9)
as.date("31/03/2022", format = "%d/%m/%Y") + months(6)
[1] NA

si utilizas lubridate tienes las función %m+% que se asegura de no superar el último día del mes:

dmy("31/03/2022") %m+% months(6)
[1] "2022-09-30"