密度プロットの重ね合わせ
この演習では、密度プロットを作成し、それらを重ねて表示することで、3 社（Activision、Electronic Arts、Nintendo）のビデオゲームの批評家スコアの分布を比較する方法を学びます。
Critic_Score の密度プロットを作成するには、density() コマンドの結果を保存し、その x と y の座標を add_lines() に渡します。
d <- density(vgsales2016$Critic_Score, na.rm = TRUE)
plot_ly() %>%
add_lines(x = ~d$x, y = ~d$y, fill = 'tozeroy') %>%
layout(xaxis = list(title = 'Critic score'),
yaxis = list(title = 'Density'))
見慣れたコードで新しい種類のプロットを簡単に作成できることに注目してください。fill = 'tozeroy' という引数は、曲線の下の領域を塗りつぶします。
データフレーム activision、ea、nintendo と plotly は読み込まれています。
この演習はコースの一部です
R で学ぶ plotly によるインタラクティブ可視化
演習の手順
- Activision、EA、Nintendo の
Critic_Scoreの密度曲線を計算し、それぞれd.a、d.e、d.nオブジェクトに保存します。 activision、ea、nintendo（この順番）について、Critic_Scoreの密度プロットを重ねて表示します。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Compute density curves
d.a <- density(___, na.rm = TRUE)
d.e <- density(___, na.rm = TRUE)
d.n <- density(___, na.rm = TRUE)
# Overlay density plots
plot_ly() %>%
add_lines(x = ___, y = ___, name = "Activision", fill = 'tozeroy') %>%
add_lines(x = ___, y = ___, name = "Electronic Arts", fill = 'tozeroy') %>%
add_lines(x = ___, y = ___, name = "Nintendo", fill = 'tozeroy') %>%
layout(xaxis = list(title = 'Critic Score'),
yaxis = list(title = 'Density'))