res2 <- docMatrix2("writers", pos = c("名詞","形容詞"), minFreq = 5) # 各行(ターム)の頻度合計を列に追加したデータフレームを作成する # あるいはオブジェクトを上書きしてしまう. # ついでに降順に並び替える z <- data.frame(term = rownames(res2)[ order(rowSums(res2), decreasing= T ) ] , sums = rowSums(res2)[order(rowSums(res2), decreasing = T )] ) # 頻度別の単語数は table(z$sums) # 頻度が100を超えるタームを抽出 z[z$sums > 100,] # Termが"の"の行を確認 res[rownames(res) == "の", ]