Выберите дату окончания месяца

Question

Я пытаюсь отфильтровать некоторые ежедневные панели, но я просто хочу использовать данные на конец месяца, сначала я должен знать их дату окончания месяца.

пример данных: https://imgur.com/a/SqL7A7F

Я пытался использовать этот код, чтобы получить дату окончания месяца. Однако некоторые даты пропущены (Некоторые дни окончания месяца 24/25/26, я пропустил много данных) Мои проблемы в том, как я могу получить дату окончания месяцаи не игнорируйте более ранний последний день (например, 3 / 23,6 / 25 и т. д.)

library(anytime)
x=anydate(as.vector(fundbv$date))
y=unique(as.Date(format(mydates+28,"%Y-%m-01"))-1)
finaldays=x[x %in% unique(as.Date(format(x+28,"%Y-%m-01"))-1)]
finaldays=unique(finaldays)

Спасибо и цените !!!!!

Answer 1

Вот как это сделать с dplyr и lubridate:

library(dplyr)
library(lubridate)

# generate a data frame with dates to play with
(df <- data_frame(
  date=seq(as.Date("2017-01-01"), as.Date("2018-12-31"), by=6),
  amount=rgamma(length(date), shape=2, scale=20)))

df %>%
  group_by(month=floor_date(date, "month")) %>%
  summarize(date = max(date))