Lancements publics vs privés
D'après le graphique précédent, mis à part la Chine, on observe une baisse du nombre de lancements. Est-ce vraiment le cas? Ou bien la course à l'espace s'est-elle déplacée vers le marché privé? Dans cet exercice, votre tâche est d'explorer cette question en comparant, dans le temps, le nombre de lancements effectués par des États et par des entreprises privées.
Les ensembles plotly, crosstalk et dplyr sont déjà chargés.
Cette activité fait partie du cours
Visualisation de données interactive intermédiaire avec plotly en R
Instructions de l’exercice
- Créez un nouvel objet
SharedDataà partir de la trame de donnéeslaunches_by_year. - Créez un graphique linéaire pour représenter l'évolution du nombre de lancements dans le temps (
launch_year) selonagency_type. Utilisez la couleur pour représenteragency_type. - Activez la sélection (mise en surbrillance) d'un
agency_type.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()