Aan de slagBegin gratis

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 ruimtevaart­overmacht 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

Bekijk cursus

Oefeninstructies

  • Maak een nieuw SharedData-object van de state_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.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Code bewerken en uitvoeren