Aan de slagGa gratis aan de slag

Overheids- vs. private lanceringen

Op basis van de vorige visualisatie lijkt het, afgezien van China, alsof het aantal lanceringen is afgenomen. Klopt dat? Of is de ruimterace verschoven naar de privémarkt? In deze oefening ga je dit onderzoeken door het aantal lanceringen van staten en private bedrijven in de tijd te vergelijken.

De pakketten plotly, crosstalk en dplyr zijn al geladen.

Deze oefening maakt deel uit van de cursus

Gemiddeld gevorderde interactieve datavisualisatie met plotly in R

Cursus bekijken

Oefeninstructies

  • Maak een nieuw SharedData-object op basis van het data frame launches_by_year.
  • Maak een lijngrafiek die het aantal lanceringen in de tijd (launch_year) per agency_type weergeeft. Gebruik kleur om agency_type aan te duiden.
  • Schakel selectie (dus highlighten) van een agency_type in.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Code bewerken en uitvoeren