RでTwitter分析。指定キーワードの時間帯別ツイート数を可視化する。 ref: http://qiita.com/nezuq/items/7b2d2ef7b662d1534e83

TwitHoursHist.R

#【本処理】

#Twitter検索キーワード
keyword.tgt <- '"島風くん"'
#Twitter検索対象日付
date.tgt <- "2014-05-17"
#Twitterで検索
date.next <- format(as.POSIXct(date.tgt) - 1, "%Y-%m-%d")
twt.raw <- searchTwitter(keyword.tgt, n = 1500, since = date.next, cainfo = cacert.name)
twt <- twListToDF(twt.raw)
twt$created.jst <- format(as.POSIXct(twt$created) + (3600 * 9), "%Y-%m-%d %H:%M:%S JST")
twt$created.jst.dt <- as.POSIXct(twt$created.jst, "JST") 
#検索対象日付のものを抽出
twt.tgt <- twt[as.POSIXct(date.tgt, "JST") <= twt$created.jst.dt & twt$created.jst.dt < (as.POSIXct(date.tgt, "JST") + (3600 * 24)), ]
#描画
hist(
  twt.tgt$created.jst.dt, 
  breaks = "hours",
  freq = T,
  col = "red",
  format = "%H時",
  main = paste('時間帯別ツイート数（', keyword.tgt, '、',date.tgt,'）', sep = ""), 
  xlab = "時間帯", 
  ylab = "ツイート数")