Začněte nyníZačněte zdarma

Státní vs. soukromé starty

Z předchozího grafu to vypadá, že – s výjimkou Číny – počet startů klesá. Je to skutečně tak? Nebo kosmický závod pronikl i na soukromý trh? V tomto cvičení se na tuto otázku pokus odpovědět tím, že porovnáš počet startů státních a soukromých společností v průběhu času.

Balíčky plotly, crosstalk a dplyr jsou již načteny.

Toto cvičení je součástí kurzu

Intermediate Interactive Data Visualization with plotly in R

Zobrazit kurz

Pokyny k cvičení

  • Vytvoř nový objekt SharedData z datového rámce launches_by_year.
  • Vytvoř spojnicový graf znázorňující počet startů v čase (launch_year) podle agency_type. Pro odlišení agency_type použij barvu.
  • Povolte výběr (tj. zvýraznění) pro agency_type.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Upravit a spustit kód