У меня есть [r] большой кадр данных с переменными даты, которые отражают первый день месяца. Является ли простой способ создать новую переменную даты фрейма данных, которая представляет последний день месяца?
Ниже приведены некоторые примеры данных:
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"
Я хотел бы вернуть новую переменную wtih:
"2012-01-31" "2012-02-29" "2012-03-30" "2012-04-27"
Я пробовал это, но он был неприемлем:
df$date.end.month=seq(df$date.start.month,length=1,by="+1 months")
Любое руководство для этого нового пользователя [r] было бы с благодарностью.
Чтобы получить конец месяца, вы можете просто создать вектор Date, содержащий 1-й из всех последующих месяцев и вычесть 1 день.
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"
Использовать timeLastDayInMonth из пакета timeDate:
df$eom<-timeLastDayInMonth(df$somedate)
Вот еще одно решение, использующее пакет 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"
Здесь используется та же концепция, что и Джеймсом выше, в которой он получает первый день следующего месяца и вычитает один день.
Кстати, это будет работать, даже если дата ввода не обязательно является первым днем месяца. Так, например, сегодня 27-е число месяца, и он по-прежнему возвращает правильный последний день месяца:
ceiling_date(Sys.Date(), "month") - days(1)
[1] "2017-07-31"
Функция, как показано ниже, выполнит работу (предположим, что dt является скалярным) -
month_end <- function(dt) {
d <- seq(dt, dt+31, by="days")
max(d[format(d,"%m")==format(dt,"%m")])
}
Если у вас есть вектор Дат, выполните следующие действия:
sapply(dates, month_end)
Простым решением было бы использование функции yearmon с аргументом frac=1 из xts -package. frac - это число от 0 до 1, которое указывает долю пути в течение периода, который представляет результат.
as.Date(as.yearmon(seq.Date(as.Date('2017-02-01'),by='month',length.out = 6)),frac=1)
[1] "2017-02-28" "2017-03-31" "2017-04-30" "2017-05-31" "2017-06-30" "2017-07-31"
Или, если вы предпочитаете "обвязку", используя magrittr:
seq.Date(as.Date('2017-02-01'),by='month',length.out = 6) %>%
as.yearmon() %>% as.Date(,frac=1)
[1] "2017-02-28" "2017-03-31" "2017-04-30" "2017-05-31" "2017-06-30" "2017-07-31"
Вы можете использовать timeperiodsR
date.start.month=seq(as.Date("2012-01-01"),length=4,by="months")
df=data.frame(date.start.month)
df$date.start.month
# install.packages("timeperiodsR")
pm <- previous_month(df$date.start.month[1]) # get previous month
start(pm) # first day of previous month
end(pm) # last day of previous month
seq(pm) # vector with all days of previous month
library(lubridate)
as.Date("2019-09-01") - days(1)
[1] "2019-08-31"
или
library(lubridate)
as.Date("2019-09-01") + months(1) - days(1)
[1] "2019-09-30"