Phương pháp tạo ngày kết thúc tháng từ biến ngày trong khung dữ liệu [r]

Question

Tôi có khung dữ liệu lớn [r] có biến ngày, phản ánh ngày đầu tiên của tháng. Có phải cách dễ dàng để bỏ qua biến ngày khung dữ liệu mới đại diện cho ngày cuối cùng của tháng không?

Dưới đây là một số dữ liệu mẫu:

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" 

Tôi muốn trả lại một wtih biến mới:

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

Tôi đã thử follwing nhưng nó đã được unsucessful:

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

Bất kỳ hướng dẫn nào cho người dùng mới này sẽ được đánh giá cao.

Answer 1

Để kết thúc tháng bạn chỉ có thể tạo một vector Date chứa ngày 1 của tất cả các tháng tiếp theo và trừ 1 ngày.

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

Sử dụng timeLastDayInMonth từ timeDate gói:

df$eom<-timeLastDayInMonth(df$somedate) 

Answer 3

Một chức năng như dưới đây sẽ làm việc (giả dt là vô hướng) -

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

Nếu bạn có một vector của Ngày , sau đó thực hiện theo các bước sau -

sapply(dates, month_end) 

Answer 4

Dưới đây là một giải pháp sử dụng các gói 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" 

này sử dụng khái niệm tương tự được đưa ra bởi James ở trên, trong đó nó được trong ngày đầu tiên của tháng tiếp theo và trừ một ngày.

Nhân tiện, thao tác này sẽ hoạt động ngay cả khi ngày nhập không nhất thiết phải là ngày đầu tiên của tháng. Ví dụ: hôm nay là ngày 27 của tháng và ngày này vẫn trả về ngày cuối cùng chính xác của tháng:

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