komprimieren Vektor in Komma getrennte Zeichenfolge

Question

Wie kann ich die Ergebnisse von unique in eine Komma getrennte Zeichenfolge komprimieren?

temp3 <- data.frame(categoryId=c(1,1,1,2),ballot1=c("yes","yes","no","200")) 
temp3 %>% group_by(categoryId) 
     %>% mutate(responses=unique(ballot1)) 

Erwartete Ausgabe:

1 yes,no 
1 yes,no 
1 yes,no 
2 200 

Answer 1

Wir können Gruppe von 'categoryId', bekommen die unique Elemente in 'ballot1' und paste sie zusammen

library(dplyr) 
temp3 %>% 
    group_by(categoryId) %>% 
    mutate(ballot1 = toString(unique(ballot1))) 
# A tibble: 4 x 2 
# Groups: categoryId [2] 
# categoryId ballot1 
#  <dbl> <chr> 
#1   1 yes, no 
#2   1 yes, no 
#3   1 yes, no 
#4   2  200