Metoda tworzenia daty końca miesiąca ze zmiennej daty w ramce danych [r]

Question

Mam dużą ramkę danych [r] ze zmiennymi daty, które odzwierciedlają pierwszy dzień miesiąca. Czy w prosty sposób można utworzyć nową zmienną daty w ramce danych, która reprezentuje ostatni dzień miesiąca?

Poniżej znajdują się przykładowe dane:

date.start.month=seq(as.Date("2012-01-01"),length=4,by="months") 
df=data.frame(date.start.month) 
df$date.start.month 

"2012-01-01" "2012-02-01" "2012-03-01" "2012-04-01" 

Chciałbym powrócić nową zmienną wtih:

"2012-01-31" "2012-02-29" "2012-03-30" "2012-04-27" 

Próbowałem follwing ale było unsucessful:

df$date.end.month=seq(df$date.start.month,length=1,by="+1 months") 

Wszelkie wskazówki dla nowego użytkownika [r] byłyby bardzo mile widziane.

Answer 1

Aby uzyskać koniec miesięcy, wystarczy utworzyć wektor Date zawierający pierwszy ze wszystkich kolejnych miesięcy i odjąć 1 dzień.

date.end.month <- seq(as.Date("2012-02-01"),length=4,by="months")-1 
date.end.month 
[1] "2012-01-31" "2012-02-29" "2012-03-31" "2012-04-30" 

Answer 2

Zastosowanie timeLastDayInMonth z pakietu timeDate:

df$eom<-timeLastDayInMonth(df$somedate) 

Answer 3

Funkcja poniżej zrobi pracę (zakładamy dt jest skalarne) -

month_end <- function(dt) { 
    d <- seq(dt, dt+31, by="days") 
    max(d[format(d,"%m")==format(dt,"%m")]) 
} 

Jeśli masz wektor dat , wykonaj następujące czynności:

sapply(dates, month_end) 

Answer 4

Oto kolejny rozwiązanie przy użyciu pakietu lubridate:

date.start.month=seq(as.Date("2012-01-01"),length=4,by="months") 
df=data.frame(date.start.month) 

library(lubridate) 
df$date.end.month <- ceiling_date(df$date.start.month, "month") - days(1) 
df$date.end.month 
[1] "2012-01-31" "2012-02-29" "2012-03-31" "2012-04-30" 

ta wykorzystuje tę samą koncepcję podane przez Jakuba powyżej, że dostaje od pierwszego dnia następnego miesiąca i odejmuje jeden dzień.

Nawiasem mówiąc, będzie to działać nawet wtedy, gdy data wprowadzenia niekoniecznie będzie pierwszym dniem miesiąca. Na przykład dzisiaj jest 27 dnia miesiąca i nadal zwraca prawidłowy ostatni dzień miesiąca:

ceiling_date(Sys.Date(), "month") - days(1) 
[1] "2017-07-31"