R语言group_by后进行复制聚组---collapse

 test4 <- test3 %>% group_by(公司名称) %>% 
          summarise(newstate = paste(部门状态,collapse = ","))