为民营太空竞赛制作动画
近年来，航天领域的主要参与者正从政府机构转向民营公司。在本练习中，您的任务是创建一个动画，探索这场"新"太空竞赛的演变。数据集 private_launches 包含以下变量：
tag- 发射 IDyear- 发射年份agency_code- 机构缩写agency_name- 机构名称agency_type- 已成立的private公司或startupcategory- 发射的成功（O）或失败（F）
已为您加载 plotly、dplyr、tidyr 和 purrr。
本练习是课程的一部分
R 中级交互式数据可视化（plotly）
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Complete the private_launches data set
annual_launches <- private_launches %>%
count(year, agency_name) %>%
___(___, ___, ___)