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

Хронологія космічних перегонів

«Перші» космічні перегони розпочалися, коли США та Радянський Союз намагалися стати провідною силою в космічних польотах. Апогею вони досягли 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Редагувати та запускати код