ПочатиПочніть безкоштовно

Державні vs приватні запуски

З огляду на попередній графік, здається, що, окрім Китаю, кількість запусків зменшується. Це справді так? Чи, можливо, космічні перегони перейшли на приватний ринок? У цій вправі ваша мета — дослідити це питання, порівнявши кількість запусків державами та приватними компаніями в часі.

Пакети 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Редагувати та запускати код