Rでウェブ解析：ツイート内容に含まれる単語をネットワーク図で表示

#ライブラリの読み込み
library("twitteR")
library("RMeCab")
library("wordcloud")
library("RColorBrewer")
library("qgraph")

#情報の入力
consumerKey <- "Consumer Key (API Key)を入力"
consumerSecret <- "Consumer Secret (API Secret)を入力"

#処理の準備
twitCred <- OAuthFactory$new(consumerKey = consumerKey,
                             consumerSecret = consumerSecret,
                             requestURL = "https://api.twitter.com/oauth/request_token",
                             accessURL = "https://api.twitter.com/oauth/access_token",
                             authURL = "http://api.twitter.com/oauth/authorize")

#認証の実行
twitCred$handshake()
registerTwitterOAuth(twitCred)

#キーワードで検索
SearchWords <- c("アカウントロック")
TwGetDF <- twListToDF(searchTwitter(searchString = SearchWords, #検索キーワード
                                    n = 1000, #取得するツイート数
                                    #since = YYYY-MM-DD #取得する期間
))

###データの作成######
res <- docDF(TwGetDF, column = 1, type = 1, N = 2, nDF = TRUE) #バイグラムデータの作成
res <- cbind(res[, 1:2], rowSums(res[, 5:ncol(res)]))　#単語の出現率を集計
res <- res[order(res[,3], decreasing = TRUE),] #出現数を降順で並び替え
########

#グラフのプロット
#出現数の設定
PlotData <- subset(res, res[, 3] &gt; 50)

#MACでの文字化け防止
par(family = "HiraKakuProN-W3")

#グラフのプロット
qgraph(PlotData, layout = "spring")