НачатьНачать бесплатно

Государственные и частные запуски

Судя по предыдущему графику, кажется, что, за исключением Китая, число запусков снизилось. Так ли это на самом деле? Или космическая гонка вышла на коммерческий рынок? В этом упражнении вам предстоит исследовать этот вопрос, сравнив количество запусков государственных и частных компаний с течением времени.

Пакеты plotly, crosstalk и dplyr уже загружены.

Это упражнение является частью курса

Интерактивная визуализация данных: средний уровень с plotly в R

Посмотреть курс

Инструкции к упражнению

  • Создайте новый объект SharedData на основе фрейма данных launches_by_year.
  • Постройте линейный график, отображающий количество запусков по годам (launch_year) в разрезе agency_type. Используйте цвет для обозначения 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Редактировать и запускать код