Phóng tàu: nhà nước vs. tư nhân
Dựa trên biểu đồ trước, có vẻ như ngoài Trung Quốc ra, số lần phóng đang giảm. Điều này có đúng không? Hay cuộc đua không gian đã chuyển sang khu vực tư nhân? Trong bài tập này, nhiệm vụ của bạn là khám phá câu hỏi đó bằng cách so sánh số lần phóng của các quốc gia và các công ty tư nhân theo thời gian.
Các gói plotly, crosstalk, và dplyr đã được nạp sẵn.
Bài tập này là một phần của khóa học
Trực quan hóa dữ liệu tương tác nâng cao với plotly trong R
Hướng dẫn bài tập
- Tạo một đối tượng
SharedDatamới từ data framelaunches_by_year. - Tạo biểu đồ đường thể hiện số lần phóng theo thời gian (
launch_year) theoagency_type. Dùng màu để biểu diễnagency_type. - Bật khả năng chọn (tức là tô sáng) một
agency_type.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()