顺序ID	主Id	报告日期	得分
1	47	2017/2/4	50
2	47	2017/2/11	30
3	47	2017/2/18	24
4	47	2017/2/25	18
5	49	2017/2/9	40
6	49	2017/2/16	31
7	49	2017/2/23	17
8	51	2017/2/3	35
9	53	2015/5/5	28
10	53	2015/5/12	20
11	53	2015/5/19	17
12	55	2017/1/21	31
13	55	2017/1/28	8
14	57	2017/1/13	35
15	57	2017/1/20	32
16	67	2017/1/7	19
17	67	2017/1/14	13
18	67	2017/1/21	5

如上源数据,我想得到同一个主ID最早一天的分数和最晚一天的分数,最终实现结果是最下面的表格,

group_by(df,主Id) %>% summarise('最晚'=max(报告日期),'最早'=min(报告日期))
现在我用上面的代码只能实现前三列,我想问下summarize能不能实现返回当前行的其他列的值呢,

     主Id        最晚        最早      最早分数     最晚分数
   <int>     <date>     <date> <dbl>
1    47 2017-02-25 2017-02-04    18            xx
2    49 2017-02-23 2017-02-09    17           xx
3    51 2017-02-03 2017-02-03    35           xx
4    53 2015-05-19 2015-05-05    17           xx
5    55 2017-01-28 2017-01-21     8           xx
6    57 2017-01-20 2017-01-13    32           xx
7    67 2017-01-21 2017-01-07     5           xx
8    69 2016-12-03 2015-03-27    40           xx
9    73 2017-01-18 2017-01-11    11           xx
10    75 2017-01-12 2017-01-05     2           xx