怎么用R把一列中相同的值所在的行合并起来

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

张艺谋  倪妮  张歆艺  黄天元  白雪
张艺谋  周冬雨 窦骁
张艺谋  小沈阳  闫妮  孙红雷  赵本山  毛毛
郭敬明  杨幂  郭采洁  郭碧婷  柯震东
郭敬明  杨幂  郭采洁  郭碧婷  柯震东

每一行是一个观测，我现在要将同一个导演下的演员进行合并，演员不去重，期望的输出是这样的：

张艺谋  倪妮  张歆艺  黄天元  白雪  周冬雨  窦骁  小沈阳  闫妮  孙红雷  赵本山  毛毛
郭敬明  杨幂  郭采洁  郭碧婷  柯震东 杨幂  郭采洁  郭碧婷  柯震东

（借用别的板块楼主的问题，我想问用R该怎么做）。谢谢各位大佬了

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

关键词：行合并 柯震东 张艺谋 郭采洁 郭碧婷

1. #先将内容拷贝进txt文档
   
2. library(dplyr)
   
3. data <- readLines("filepath") #filepath为该txt文档的地址
   
4. director <- c()
   
5. actor <- c()
   
6. for(i in 1:length(data)){
   
7.   temp <- unlist(strsplit(data[i], "  "))
   
8.   director[i] <- temp[1]
   
9.   actor[i] <- paste(temp[-1], collapse = " ")
   
10. }
    
11. data2 <- data.frame(director = director, actor = actor)
    
12. data_output <- data2 %>% group_by(director) %>% summarise(actor = paste(actor, collapse = " "))
    
13. write.csv(data_output, "filepath")

复制代码

药引子5 发表于 2019-10-30 22:58

谢谢谢谢，我试试。