State vs. private launches
Based on the previous graphic, it seems that, aside from China, there has been a decline in launches. Is this true? Or has the space race reached the private market? In this exercise, your task is to explore this question by comparing the number of launches by states and private companies over time.
The plotly, crosstalk, and dplyr packages are already loaded.
This exercise is part of the course
Intermediate Interactive Data Visualization with plotly in R
Exercise instructions
- Create a new
SharedDataobject from thelaunches_by_yeardata frame. - Create a line chart to represent the number of launches over time (
launch_year) byagency_type. Use color to representagency_type. - Enable selection (i.e. highlighting) of an
agency_type.
Hands-on interactive exercise
Have a go at this exercise by completing this sample code.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()