読者です 読者をやめる 読者になる 読者になる

ヒートマップ比べ(データ:プリキュア視聴率、ツール:R)

ヒートマップ比べシリーズです。今回はR。

Rでヒートマップを書くことなんてごく簡単なんだけど、適当に書くといい感じに整形しちゃうので、このシリーズでExcel, Tableau, Googleスプレッドシートで書いたヒートマップに見た目をあわせるのにとっても苦労しました。

f:id:Akiyah:20160525192934p:plain

とくに、プリキュアのシリーズの順番に並べるという点。勝手に入れ替えちゃうんですよね。

色々調査して、下のようなコードで書きました。

> filename <- 'プリキュア視聴率.txt'
> df <- read.delim(filename)
> 
> head(df)
  話数   番組名 視聴率
1    1 ナージャ    6.1
2    2 ナージャ    6.3
3    3 ナージャ    6.3
4    4 ナージャ    6.6
5    5 ナージャ    7.4
6    6 ナージャ    6.9
> 
> library(ggplot2)
> ggplot(df, aes(x=番組名,y=話数)) +
+     geom_tile(aes(fill=視聴率)) + 
+     scale_fill_gradient(low="green", high="red") +
+     xlim(as.character(unique(df$番組名)))

 

順番を制御しているのは、xlimのところ。実はy軸も他のヒートマップと上下逆だけど、それはもう気にしないことにしました。