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

Хронология космической гонки

«Первая» космическая гонка началась, когда США и Советский Союз соперничали за лидерство в освоении космоса. Кульминацией этого противостояния стало 20 июля 1969 года — день, когда пилотируемый космический аппарат «Аполлон-11» совершил посадку на Луну. В этом упражнении вам предстоит построить график временного ряда, отражающий первую космическую гонку: борьбу стран за превосходство в космических полётах.

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

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

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

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

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

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