在 R 中以表格形式获取多个小计和分组依据

Question

我有一个电话数据集（CSV）。它包含几列，但重要的列是“打电话的人”和“打电话的人”。数据是所有字符串（名称）。完成的全部工作是在这些两列数据的字符串上。如示例：

Caller  Receiver
Alice   Mary
Kate    Betty
Alice   Betty
Mary    Kate | Jane
Jane    Alice

所需的输出是一个人拨打电话的次数和拨打电话的人的形式。例如，上面的输出如下：

Caller  Receiver    CallFreq
Alice   Mary        1
        Betty       1
Kate    Betty       1
Mary    Kate        1
        Jane        1
Jane    Alice       1

此人拨打的电话总数可以包含在上表或另一个表中。

Answer 1

tidyr 包中的 unnest 函数在这种情况下非常有用。

output <-
  mydata %>% 
  group_by(Caller) %>%
  summarise(Receiver = paste(unique(Receiver), collapse=' | ')) %>%
  mutate(Receiver = strsplit(Receiver, ' \\| ')) %>%
  unnest(Receiver) %>%
  group_by(Caller) %>%
  mutate(CallFreq = 1, TotalCalls = n_distinct(Receiver))

要直接运行上述代码，您需要使用 dplyr、magrittr 和 tidyr 包。