R-水浒人物关系呈现

最新推荐文章于 2024-08-13 13:04:20 发布

lee_xiong

最新推荐文章于 2024-08-13 13:04:20 发布

阅读量4.3k

点赞数 2

分类专栏：个人学习数据分析文章标签： R 文本分析可视化数据

本文链接：https://blog.csdn.net/lee_xiong/article/details/24611765

版权

个人学习同时被 2 个专栏收录

3 篇文章 0 订阅

订阅专栏

数据分析

3 篇文章 0 订阅

订阅专栏

本文介绍了一种利用R语言分析《水浒传》中人物关系的方法，通过提取书中人物名称并分析其共现关系来绘制人物关系网络图。首先定义了几个关键函数用于读取文本、提取特定词汇及分析词汇间的关系；接着，使用tm和Rwordseg库进行文本处理；最后，将得到的数据导出为CSV文件，并使用Gephi进行可视化。

摘要由CSDN通过智能技术生成

一、背景

利用R呈现《水浒传》人物关系网络图

二、技术路线

思路：以在同一段出现的共现关系，绘制人物关系网络图

工具：R

三、过程

1. 预定义函数

#读取文件内容函数
get.content<-function(file.path){
    return (scan(file.path,sep='\n',what='character'))
}

#从termlist中筛选出words，返回词项列表
get.intersect.terms<-function(termlist,words){
  heros<-list()
  heros<-lapply(1:length(termlist),function(i) heros[[i]]<-intersect(termlist[[i]],words))
  hero.clean<-list()
  j<-1
  for (i in (1:length(heros))){
    if(length(heros[[i]]>1)){
      hero.clean[[j]]=heros[[i]]
      j=j+1
    }
  }
  return (hero.clean)
}

#获取输入向量元素间的两两关系
get.relationship<-function(termvector){
  a<-NULL
  len<-length(termvector)
   if(len>1){
    for (i in 1:(len-1))
      for (j in (i+1):len)
        a<-append(a,c(termvector[i],termvector[j]))
  }
  return (a)
}

2. 实现：

library(tm)
library(Rwordseg)
words<-get.content('水浒人名.txt') 
insertWords(words)                   #作为临时分词词项使用
sh.data<-get.content('水浒传.txt') 
segwords.list<-segmentCN(sh.data)       
co.heros<-get.intersect.terms(segwords.list,words)     
co.heros<-lapply(co.heros,function(i) get.relationship(i)) 
co.heros<-unlist(co.heros)
co.matrix<-matrix(co.heros,ncol=2,byrow=TRUE)
write.csv(co.matrix,'水浒.csv',row.names=FALSE)

也可以将上述过程封装成一个函数：

#读取文件，返回words参数中定义的词项间共现关系列表
auto.getrls<-function(file.path,words){
  file.data<-get.content(file.path)
  file.term<-segmentCN(file.data)                                                #分词
  file.terms<-get.intersect.terms(file.term,words)            #获取交集
  file.terms.rls<-lapply(file.terms,function(i) get.relationship(i))     #获取词项间关系
  file.terms.rls<-unlist(file.terms.rls)                                             #将列表转换为向量 
  return (file.terms.rls)
}

3. 得到CSV关系数据，利用社会网络分析工具Gephi进行网络可视化