r dplyr group_by值折叠并粘贴 [英] r dplyr group_by values collapse and paste

问题描述

我有一个看起来像这样的数据

I have a data set that looks like this

Id   Subject    Date        Vitals       Value
10   John       2001-05-29  HeartRate    65
10   John       2001-05-29  HeartRate    68
10   John       2001-05-29  BP-Arterial  48
10   John       2001-05-29  PulseRate    64
34   Pete       2005-08-15  HeartRate    68
34   Pete       2005-08-15  BP-Arterial  56
10   John       2004-09-25  HeartRate    65
10   John       2004-09-25  BP-Arterial  64
10   John       2004-09-25  PulseRate    63   
34   Pete       2007-07-21  BP-Arterial  68
34   Pete       2007-07-21  PulseRate    56

我想做两件事，

1）按Vitals分组。
2）计算在特定日期（ID +日期）为每个ID测得的生命值，然后像下面这样折叠并粘贴这些值。 / p>

1) group by Vitals. 2) Count the number of Vitals that were measured for each ID on a specific date (ID + Date) and collapse and paste these values like this below.

Vitals      Series
HeartRate   2,1,1
BP-Arterial 1,1,1,1
PulseRate   1,1,1 

HeartRate 是 2、1、1 ，因为对HeartRate进行了测量

The value under the Series column for HeartRate is 2, 1, 1 because HeartRate was measured

两次ID 10 on 2001-05-29，

twice for ID 10 on 2001-05-29,

一次，ID为2005-08-15，并且

once for ID 34 on 2005-08-15 and

一次对于2004年9月24日的ID 10

once for ID 10 on 2004-09-24

不知道如何使用dplyr折叠和粘贴这些值，非常感谢。

Not sure how to collapse and paste these values using dplyr any help is much appreciated.

推荐答案

计算在特定日期（ID +日期）为每个ID测得的生命值

Count the number of Vitals that were measured for each ID on a specific date (ID + Date)

这意味着您需要对这三个部分进行分组。然后，我们可以仅按生命周期进行最后一次崩溃的重新组合：

This means you need to group by all three. We can then regroup by only vitals for the final collapse:

dat %>% group_by(Vitals, Id, Date) %>%
    summarize(n = n()) %>%
    ungroup() %>%
    group_by(Vitals) %>%
    summarize(Series = paste(n, collapse = ','))
# # A tibble: 3 × 2
#        Vitals  Series
#        <fctr>   <chr>
# 1 BP-Arterial 1,1,1,1
# 2   HeartRate   2,1,1
# 3   PulseRate   1,1,1

这篇关于r dplyr group_by值折叠并粘贴的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！