Kom igångKom igång gratis

Tidslinje över rymdkapplöpningen

Den "första" rymdkapplöpningen inleddes när USA och Sovjetunionen tävlade om att bli den ledande kraften inom rymdfart. Kapplöpningen nådde sin höjdpunkt den 20 juli 1969, då Apollo 11 – ett bemannat rymdskepp – landade på månen. I den här övningen ska du skapa ett tidsserieplot som sammanfattar den första rymdkapplöpningen: kampen om rymdfartsöverlägsenhet mellan länder.

Paketen plotly, crosstalk och dplyr är redan inladdade.

Den här övningen är en del av kursen

Interaktiv datavisualisering på mellannivå med plotly i R

Visa kurs

Övningsinstruktioner

  • Skapa ett nytt SharedData-objekt från dataramen state_launches.
  • Skapa ett linjediagram som visar antalet uppskjutningar per år (launch_year) för varje stat (state_code).
  • Rita varje linje i en egen färg.
  • Aktivera markering av en enskild stat.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Redigera och kör kod