求助：如何选取每个月最后五个交易日的数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

目前的思路是分组，然后每个月根据日期排序，已经做到了这一步，但是最后一步选取每个月最大的五个日期并取平均值不会做了，求大神指点，或者有新的思路也可以。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：交易日 平均值 最大的

试试先lable1至31日，然后用maximum-i, i=0,1,2,3,4, 再用if function 取得对应值。总之就是分两步做

提供一个思路，先添加一个月的变量，然后根据月分组，提取每个月最后5天，然后求平均值。

1. library(lubridate)
   
2. library(dplyr)
   
3. 
   
4. df <- tibble(date = seq.Date(from = as.Date('2020-01-01'), to = as.Date('2020-12-31'), by = 1),
   
5.              val = rgamma(366, 10, 5))
   
6. 
   
7. last_five <- df %>%
   
8.   mutate(month = month(date)) %>%
   
9.   group_by(month) %>%
   
10.   slice_tail(n = 5) %>%
    
11.   summarise(mean = mean(val))

复制代码

owenqi 发表于 2021-5-16 22:12
提供一个思路，先添加一个月的变量，然后根据月分组，提取每个月最后5天，然后求平均值。

谢谢兄弟，会了！