Tijdlijn van de ruimtewedloop
De eerste ruimtewedloop begon toen de Verenigde Staten en de Sovjet-Unie probeerden de wereldmacht in ruimtevaart te worden. Deze wedloop bereikte een hoogtepunt op 20 juli 1969, toen Apollo 11, een bemande ruimtesonde, op de maan landde. In deze oefening maak je een tijdreeksplot die de eerste ruimtewedloop samenvat: de strijd om ruimtevaartovermacht tussen landen.
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
Oefeninstructies
- Maak een nieuw
SharedData-object van destate_launches-dataframe. - Maak een lijndiagram met het aantal lanceringen per jaar (
launch_year) voor elke staat (state_code). - Geef elke lijn een andere kleur.
- Maak selectie (dus highlighting) van een individuele staat mogelijk.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()