国家 vs. 私营发射
根据上一幅图，除中国外，航天发射似乎在下降。真是如此吗？还是说太空竞赛已经转向私营市场？本练习中，您的任务是通过比较各年份中各国/私营公司的发射次数来探究这个问题。
已加载 plotly、crosstalk 和 dplyr 包。
本练习是课程的一部分
R 中级交互式数据可视化（plotly）
练习说明
- 从数据框
launches_by_year创建一个新的SharedData对象。 - 创建折线图，按
agency_type展示随时间（launch_year）变化的发射次数。使用颜色表示agency_type。 - 启用对某个
agency_type的选择（即高亮显示）。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# table of launches by year and agency type
launches_by_year <- launches %>% count(launch_year, agency_type)
# create a ShareData object for plotting
shared_launches <- launches_by_year %>% ___(key = ___)
# create a line chart displaying launches by agency type, with highlighting
shared_launches %>%
___(___, ___, ___) %>%
___() %>%
___()