Statliga kontra privata uppskjutningar
Utifrån den föregående grafen verkar det som att antalet uppskjutningar har minskat – med undantag för Kina. Stämmer det? Eller har rymdkapplöpningen nått den privata marknaden? I den här övningen är din uppgift att undersöka frågan genom att jämföra antalet uppskjutningar från stater respektive privata företag över tid.
Paketen plotly, crosstalk och dplyr är redan inlästa.
Den här övningen är en del av kursen
Interaktiv datavisualisering på mellannivå med plotly i R
Övningsinstruktioner
- Skapa ett nytt
SharedData-objekt från dataramenlaunches_by_year. - Skapa ett linjediagram som visar antalet uppskjutningar över tid (
launch_year) uppdelat påagency_type. Använd färg för att representeraagency_type. - Aktivera markering av en
agency_type.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()