Question

现在我正在尝试总结我的行，但保留除unique_id之外的所有值。这是我目前的代码：

library(dplyr)
rm_na_unique <- function(vec){
  unique(vec[!is.na(vec)])
}
trial <- test1 %>%
  group_by(unique_id) %>% 
  summarise_each(funs(toString(rm_na_unique(.))))

这会删除重复项，但是我如何更改最后一部分： summarise_each（funs（toString（rm_na_unique（。））））以保留我的所有值（无论它是否都是相同的值）细胞？谢谢。

Starting DF

Unique_id  Name  State
   1       Rich   PA
   1       Rich   PA
   1       Rich   PA
   2       Tim    DE
   2       Tim    DE
   2       Tim    DE

Desired Result

   Unique_id  Name               state
       1       Rich,Rich,Rich    PA,PA,PA
       2       Tim,Tim,Tim       DE,DE,DE

根据以前的问题，我可以看到我可以使用以下代码完成此任务：

library(dplyr)

df %>%
  group_by(unique_id) %>%
  summarise(name=paste(name,collapse=','))

但是我如何将它应用于整个数据框而不仅仅是一个或两个变量？

合并行，保留所有变量值，用逗号分隔

0 个答案: