コンマ区切り文字列にベクトルを圧縮

Question

uniqueの結果をコンマで区切った文字列に圧縮するにはどうすればよいですか？

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

予想される出力：

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

Answer 1

私たちをグループ '区分' によって、取得したい 'ballot1' と一緒にpaste彼らは

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