叠加的核密度图

在本练习中，您将学习如何创建核密度图，并将其叠加以比较三家电子游戏发行商的媒体评分分布：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'))

编辑并运行代码