111111111111111111

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

11111111111111111 nginx-1.14.2.tar.gz (991.59 KB)

2019-1-15 10:35:32 上传

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. movie <- data.frame(UserID = c(43, 43, 2, 58, 2, 44, 3, 2, 43),
   
2.                     MovieID = c(23, 42, 123, 3, 545, 8, 45, 32, 44),
   
3.                     Rating = c(3, 1, 2, 5, 4, 3, 2, 1, 4))
   
4. library(dplyr)
   
5. 
   
6. movie1 <- movie %>%
   
7.   group_by(UserID) %>%
   
8.   filter(Rating >= 3) %>%
   
9.   arrange(UserID)
   
10. 
    
11. movie2 <- aggregate(MovieID ~ UserID, data = movie1[, -3], list)
    
12. 
    
13. 2222222222222222222222222222
    
14. 
    
15. # Write the file
    
16. 
    
17. for (i in 1:nrowmovie2)) {
    
18.   cat(UserID_new[i], movieid[[i]], "\n", file = "output.txt", append = TRUE)
    
19. }

复制代码

111111111111111