石田修二研究室 ＞ データ統計処理 ＞ グラフ ＞ （サイト内検索）
2012年8月2日の金曜ロードショーで「天空の城ラピュタ」が放送されました。この時，ニコニコ動画の方でもラピュタの解説番組が放送されていました。テレビ放送で「バルス」が流れた際，どれくらいのコメント数が解説番組に集まるのか，21時30分から10分置きのコメント数と合わせて折れ線グラフにプロットしてみました。
ソース。
par(family="HiraKakuProN-W3") #mac
par(mar=c(4.5, 5, 4, 3))
par(mgp=c(2.5,0.8,0)) #余白の使い方 説明,ラベル,軸の位置
par(las=1)
par(cex=0.9)
x=c(73110,91480,110094,126579,143723,
160689,179623,193497,216612,236402,
259818,299957,400434,469174,500030)/10000
t0 = as.POSIXct("2013-08-02 21:30")
t=seq(t0, by=600, along.with=x)
plot(t, x, type="o", pch=16, ylim=c(0,50),
xlab="時刻（10分置き）", ylab="累積コメント数",
main="総コメント数の推移")
abline(h=seq(0,50,10), v=t, lty=3)
axis(side=2, at=50, labels="単位：万", padj=-1.5)
リンクはご自由にどうぞ。
Last modified: 2015-09-03 01:35:17