为时间添加滑块
在上一课中，您创建了一个动画，用于展示各个国家/地区在不同年份的发射次数。滑块是该动画的另一种选择，能让您完全掌控想要查看的时间段。例如，您可以从开头播放到结尾，或只聚焦于 1960s。此练习中，您的任务是在基于国家/地区的折线图下方添加一个时间滑块。
plotly、crosstalk、dplyr 以及数据集 state_launches 已为您加载。
本练习是课程的一部分
R 中级交互式数据可视化（plotly）
练习说明
- 计算按
state_code和launch_year分组的发射次数，并将其转换为SharedData对象。将结果保存为shared_launches。 - 使用
shared_launches创建折线图，按时间显示各国家/地区的发射次数（n）。将该图保存为launch_ts。使用颜色表示state_code。 - 在图表下方放置一个滑块以筛选显示的年份。将该滑块标记为
"Year"。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Create a SharedData object containing the number of launches by year and state
shared_launches <- state_launches %>%
count(___, ___) %>%
___()
# Create a line chart displaying the launches by state
launch_ts <- ___ %>%
___(x = ___, y = ___, color = ___) %>%
___()
# Add a slider below the chart to filter the years displayed
___(list(___,
___(id = "time", label = ___,
sharedData = ___, column = ___)
))