使用R语言对QQ聊天群里的大水比查找

admin

1. # 读取QQ聊天记录
   
2. qqChat <- readLines("C:/Users/Administrator/Desktop/大数据人社区.txt",encoding='UTF-8')
   
3. head(qqChat)
   
4. 
   
5. # 1.提取除聊天内容以外的信息
   
6. qqInfo <- qqChat[grep("^\\d{4}-\\d{1,2}-\\d{1,2}", qqChat)]
   
7. # 提取时间信息
   
8. time <- substr(qqInfo, regexpr("^\\d{4}-\\d{1,2}-\\d{1,2}", qqInfo), 19)
   
9. # 提取网名和QQ信息
   
10. nameQQ <- substr(qqInfo, 21, nchar(qqInfo))
    
11. # 提取网名信息
    
12. name <- substr(nameQQ, regexpr("^\\D",nameQQ),regexpr("\\(",nameQQ)-1)
    
13. # 提取QQ信息
    
14. QQ   <- substr(nameQQ, regexpr("\\(",nameQQ)+1,regexpr("\\)",nameQQ)-1)
    
15. # 时间，网名，QQ，组成数据框
    
16. chat=data.frame(time=time,name=name,QQ=QQ)
    
17. summary(chat)
    
18. which.max(table(chat$name))
    
19. sum(chat$name=="小雄")
    
20. data1 <- as.data.frame(table(chat$name))
    
21. data2 <- data1[order(-data1$Freq),]
    
22. 
    
23. 
    
24. # 2.提取聊天内容信息
    
25. chatContent <- qqChat[grep("^\\D", qqChat)]
    
26. # 聊天内容写入本地文件
    
27. write(chatContent, file = "F:/R/RWorkspace/data/chatContent.txt")

复制代码

搜索

data985

要把代码普遍化才行