Добавление слайдера для выбора времени
На предыдущем уроке вы создали анимацию, показывающую количество запусков по каждому государству в разные годы. Слайдер — это альтернатива анимации, которая даёт вам полный контроль над тем, какой период изучать. Например, можно просмотреть всю историю целиком или сосредоточиться только на 1960-х годах. В этом упражнении ваша задача — добавить слайдер под линейный график запусков по государствам.
Библиотеки plotly, crosstalk, dplyr и набор данных state_launches уже загружены.
Это упражнение является частью курса
Интерактивная визуализация данных: средний уровень с plotly в R
Инструкции к упражнению
- Рассчитайте количество запусков по
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 = ___)
))