将多个变量汇总为dplyr中的字符串

Question

我想总结一下字符串中的两个变量。 假设这是我的 ID

 #visit

id  source1    source2 
 1    a          t
 2    c          l
 3    c          z
 1    b          x

第二个数据集：

 #transaction
 id    transactions 

 1       1
 3       2
 1       2

我想将这些数据连接在一起，但同时将它们转换为字符串：

我可以为一个变量做（假设来源 1）：

library(dplyr) 
%>%  left_join(visit, transaction, by="id") 
%>%  group_by( id)
%>%  summarise( Source = toString(unique(source1)), transactions =    toString(unique(transactions)) )

这给了我以下输出：

id     source       transactions
 1       a,b         1,2 
 2        c           NA
 3        c           2

但我想总结两个变量：所以我想要的输出是这样的：

 id     source       transactions
 1       a,t > b,x   1,2 
 2       c,l         NA
 3       c,z         2

Answer 1

您可以将两个变量paste在一起，使用sep和collapse进行组合：

visit %>% left_join(transaction) %>% 
    group_by(id) %>% 
    summarise(source = paste(unique(source1), unique(source2), sep = ', ', collapse = ' > '), 
              transaction = na_if(toString(unique(na.omit(transactions))), ''))

## # A tibble: 3 × 3
##      id      source transaction
##   <int>       <chr>       <chr>
## 1     1 a, t > b, x        1, 2
## 2     2        c, l        <NA>
## 3     3        c, z           2

不过要小心； paste和toString愚蠢地将NA强制为字符串。 您可能想要包装在na.omit或使用na_if 。