搜文章
推荐 原创 视频 Java开发 iOS开发 前端开发 JavaScript开发 Android开发 PHP开发 数据库 开发工具 Python开发 Kotlin开发 Ruby开发 .NET开发 服务器运维 开放平台 架构师 大数据 云计算 人工智能 开发语言 其它开发
Lambda在线 > 管理研究方法 > 主动离婚的女性为何选择离婚?一项简单的R语言文本分析

主动离婚的女性为何选择离婚?一项简单的R语言文本分析

管理研究方法 2020-06-29

目的:

利用文本分析简单探究主动离婚的女性为何选择离婚


方法:

利用R语言进行文本分析


文本来源:


说明:

分析的工作路径是桌面的名为devoice的文件夹,将11个独白文字片段整理到一个名为devoice.txt的文档中,存在于devoice的文件夹;

利用R语言将分割好的文字存为1.seg.txt,在devoice文件夹中新建corpus子文件夹,将1.seg.txt放入,然后生成词云。


library("Rwordseg")
library("jiebaR")
library("stylo")
library("wordcloud2")

#读取文件
text <- scan("reason.txt", what = "char", sep = "\n")

text.seged <- segmentCN(text, analyzer = c("jiebaR"), returnType = "tm")

text.seged

cat(text.seged, file = "C:/Users/ASUS/Desktop/devoice/1seg.txt")



mycorpus <- load.corpus(corpus.dir = "C:/Users/ASUS/Desktop/devoice/corpus"
                        encoding="ASCII")

chinese <- txt.to.words(mycorpus)

chinese

wordfreq <- make.frequency.list(chinese, value=T, relative = F)

df <- data.frame(wordfreq)

df <- df[-c(1,2,3,4,5,7,8,9,11,12,13,14,16,
            17,18,19,20,21,22,23,24),] #同时删除多行数据框,目的是将无效词删掉

plot(df$Freq)

barplot(df$Freq[1:20], names.arg = df$data[1:20])

wordcloud2(df,shape = "circle")


输出图形如下:



从上图可以看出,除了"离婚"、"结婚"高频词外,"孩子"、"自己"凸显了出来。表明在考虑离婚的过程中,女性将孩子和自我摆在了较为重要的位置。




欢迎关注:

欢迎点击下方"在看"

版权声明:本站内容全部来自于腾讯微信公众号,属第三方自助推荐收录。《主动离婚的女性为何选择离婚?一项简单的R语言文本分析》的版权归原作者「管理研究方法」所有,文章言论观点不代表Lambda在线的观点, Lambda在线不承担任何法律责任。如需删除可联系QQ:516101458

文章来源: 阅读原文

相关阅读

关注管理研究方法微信公众号

管理研究方法微信公众号:guanliyanjiufangfa

管理研究方法

手机扫描上方二维码即可关注管理研究方法微信公众号

管理研究方法最新文章

精品公众号随机推荐