小编mob*_*mob的帖子

我的数据看起来像这样(注意日期是DD-MM-YYYY格式):

ID  date      drug  score
A   28/08/2016  2   3
A   29/08/2016  1   4
A   30/08/2016  2   4
A   2/09/2016   2   4
A   3/09/2016   1   4
A   4/09/2016   2   4
B   8/08/2016   1   3
B   9/08/2016   2   4
B   10/08/2016  2   3
B   11/08/2016  1   3
C   30/11/2016  2   4
C   2/12/2016   1   5
C   3/12/2016   2   1
C   5/12/2016   1   4
C   6/12/2016   2   4
C   8/12/2016   1   2
C   9/12/2016   1   2    

对于'药物':1 =服用药物,2 =不服用药物.

我需要总结每个ID:

• 0day:服用药物的天数的平均分数.
• -1天:药物服用前几天的平均得分.
• + …

我试图创建一个分组的摘要，报告每个组中的记录数，然后还显示一系列变量的含义。

我只能将如何做为两个独立的摘要，然后将它们合并在一起。这可以正常工作，但我想知道是否还有更优雅的方法可以做到这一点？

dailyn<-daily %>% # this summarises n
  group_by(type) %>%
  summarise(n=n()) %>%

dailymeans <- daily %>% # this summarises the means
  group_by(type) %>%
  summarise_at(vars(starts_with("d.")),funs(mean(., na.rm = TRUE))) %>%

dailysummary<-inner_join(dailyn,dailymeans) #this joins the two parts together

我正在使用的数据是这样的数据框：

daily<-data.frame(type=c("A","A","B","C","C","C"),
                  d.happy=c(1,5,3,7,2,4),
                  d.sad=c(5,3,6,3,1,2))