R 第四季度的最后一天

我有一个日期序列，每个日期都有一个值

dat = data.frame(date = seq(as.Date("2015/1/1"), as.Date("2016/8/1"), "days"), value =seq(1, length(seq(as.Date("2015/1/1"), as.Date("2016/8/1"), "days")),1 ))

我想对数据帧进行子集，并用一个值返回季度的最后一天

因此，上述日期的结果应为

2015-03-31    90
2015-06-30   181
2015-09-30   273
2015-12-31   365
2016-03-31   456
2016-06-30   547
2016-08-01   579

这里只有一条路

library(dplyr)
library(lubridate)
dat %>% 
  group_by(quarter=quarter(date, T)) %>% 
  filter(date==max(date)) %>% 
  ungroup %>% 
  select(-quarter)
# # A tibble: 7 x 2
#         date value
#       <date> <dbl>
# 1 2015-03-31    90
# 2 2015-06-30   181
# 3 2015-09-30   273
# 4 2015-12-31   365
# 5 2016-03-31   456
# 6 2016-06-30   547
# 7 2016-08-01   579

库（dplyr）
图书馆（lubridate）
dat%>%
分组依据（季度=季度（日期，T））%>%
筛选器（日期==最大（日期））%>%
解组%>%
选择（-季度）
##A tibble:7 x 2
#日期值
#        
# 1 2015-03-31    90
# 2 2015-06-30   181
# 3 2015-09-30   273
# 4 2015-12-31   365
# 5 2016-03-31   456
# 6 2016-06-30   547
# 7 2016-08-01   579

您的参考日期是什么<代码>2015-01-01？看看我在max（date）中得到的错误：运行代码时参数的“type”（closure）无效我认为dat%>%groupby（quarty=quarty（date，T））%>%summary（m=max（date））在使用示例数据时会出现错误吗？