太空竞赛时间线
所谓"第一次"太空竞赛，始于美国与苏联争夺载人航天与空间飞行的主导地位。这场竞赛在 1969 年 7 月 20 日达到高潮——阿波罗 11 号这一载人飞船在月球着陆。本练习中，您的任务是创建一个时间序列图，概括这场早期太空竞赛：各国在空间飞行领域的领先之争。
已加载 plotly、crosstalk 和 dplyr 包。
本练习是课程的一部分
R 中级交互式数据可视化（plotly）
练习说明
- 从
state_launches数据框创建一个新的SharedData对象。 - 创建折线图，按年份（
launch_year）显示每个国家/地区（state_code）的发射次数。 - 为每条线使用不同颜色。
- 启用对单个国家/地区的选择（即高亮显示）。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# table of launches by year
state_launches <- launches %>%
filter(agency_type == "state") %>%
count(launch_year, state_code)
# create a ShareData object for plotting
shared_launches <- state_launches %>% ___(key = ___)
# Create a line chart for launches by state, with highlighting
shared_launches %>%
___(___, ___, ___) %>%
___() %>%
___()