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

Posted 2021-04-18 管理研究方法

目的：

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

方法：

利用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")

输出图形如下：

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

---

欢迎关注：
欢迎点击下方"在看"