形態素解析

青空文庫作品の単語・品詞頻度を計算する

  • データの読み込み
morph_data <- read.csv("webchamame_20250507082844.csv")
head(morph_data)
  • 単語の頻度を数えて頻度が高いものを表示する
head(sort(table(morph_data$語彙素),decreasing = TRUE),20)
## 
##   、   の   て   だ   は   た   に   を   と   が   。 為る   「   」   も ます 
## 8125 6151 4506 4286 3649 3590 3040 3001 2829 2711 2483 1874 1805 1723 1710 1452 
## です 言う   で 居る 
## 1370 1226 1202 1188
  • 動詞に限定した場合の頻度が高い単語
verb_data <- morph_data[morph_data$大分類 == "動詞" ,]
head(verb_data)
head(sort(table(verb_data$語彙素),decreasing = TRUE),20)
## 
##   為る   言う   居る   有る   成る   来る   行く   見る   思う   遣る 仕舞う 
##   1874   1226   1188    716    642    459    360    295    264    242    175 
## 呉れる 分かる   出る   知る   取る 出来る   付く   持つ   出す 
##    142    123    120    105    101    101     96     95     95
  • 名詞に限定した場合の頻度が高い単語
noun_data <- morph_data[morph_data$大分類 == "名詞",]
head(noun_data)
head(sort(table(noun_data$語彙素),decreasing = TRUE),20)
## 
##   ナオミ       事                物       一       方       時       所 
##      706      647      528      365      308      264      243      189 
##       女     自分       気   ハマダ クマガヤ       顔       今 ジョウジ 
##      163      161      142      141      129      129      126      122 
##       間       男       前       家 
##      122      121      118      115
  • 名詞と動詞に限定した場合の頻度が高い単語
noun_verb_data <- morph_data[morph_data$大分類 == "名詞" | morph_data$大分類 == "動詞" ,]
head(noun_verb_data)
head(sort(table(noun_verb_data$語彙素),decreasing = TRUE),20)
## 
##   為る   言う   居る   有る ナオミ     事   成る          来る     物   行く 
##   1874   1226   1188    716    706    647    642    528    459    365    360 
##     一   見る   思う     方     時   遣る     所 仕舞う     女 
##    308    295    264    264    243    242    189    175    163
  • wordcloudの利用
#install.packages(wordcloud)
library(wordcloud)
## 要求されたパッケージ RColorBrewer をロード中です
res_data <- data.frame(term = row.names(table(noun_verb_data$語彙素)), freq = unlist(table(noun_verb_data$語彙素)))




head(res_data)
dim(res_data)
## [1] 5043    3
res_wordcloud <- wordcloud(res_data$term, res_data[,3], min.freq = 16,scale = c(4,1) ,colors = c("purple","blue", "lightblue","green", "orange", "pink","red"), family = "Osaka")
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strheight(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 有る could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 関係 could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 立つ could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 考え could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : ハマダ could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 気持ち could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 眺める could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 呼ぶ could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 大概 could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 信ずる could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 着る could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : カマクラ could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 仕舞う could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 出す could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 言う could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 済む could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : カワイ could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 一種 could not be fit on page. It will not be plotted.
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 切る could not be fit on page. It will not be plotted.
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : さっき could not be fit on page. It will not be plotted.
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 寄る could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt =
## rotWord * : Windows のフォントデータベースにフォントファミリが見付かりません
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 半 could not be fit on page. It will not be plotted.

## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 詰まる could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 今夜 could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 頂戴 could not be fit on page. It will not be plotted.
## Warning in strwidth(words[i], cex = size[i], ...): Windows
## のフォントデータベースにフォントファミリが見付かりません
## Warning in wordcloud(res_data$term, res_data[, 3], min.freq = 16, scale = c(4,
## : 見る could not be fit on page. It will not be plotted.
  • 品詞の頻度を数える
print(table(morph_data$大分類))
## 
##            感動詞     記号     空白   形状詞   形容詞     助詞   助動詞 
##        7      734      143      292     1732     2191    35107    13056 
##   接続詞   接頭辞   接尾辞   代名詞     動詞     副詞 補助記号     名詞 
##      444      450     1649     4240    14843     3911    16362    20715 
##   連体詞 
##     1305
round(table(morph_data$大分類)/sum(table(morph_data$大分類)),3)
## 
##            感動詞     記号     空白   形状詞   形容詞     助詞   助動詞 
##    0.000    0.006    0.001    0.002    0.015    0.019    0.300    0.111 
##   接続詞   接頭辞   接尾辞   代名詞     動詞     副詞 補助記号     名詞 
##    0.004    0.004    0.014    0.036    0.127    0.033    0.140    0.177 
##   連体詞 
##    0.011

1 よく使われる形態素は？ 「、(読点)」が最も多く、「の」「が」「は」などの助詞も多かった。 2 動詞に限定した場合によく使われる形態素は？ 「為る」「言う」「居る」が多い。 3 名詞に限定した場合によく使われる形態素は？ 物語中の主要人物である「ナオミ」が一番多く、特筆すべき点と言える。物語の内容もナオミ中心に進んでいく。 4 それぞれの品詞はどの程度の割合で使われているのか？ 助詞0.300割、名詞0.177割で、助詞と名詞だけでおよそ半分近くを占めている。しかしながら、森鴎外や夏目漱石の作品に比べると低い割合である。