Dòng thời gian cuộc chạy đua không gian
Cuộc chạy đua không gian “đầu tiên” bắt đầu khi Hoa Kỳ và Liên Xô nỗ lực trở thành thế lực dẫn đầu trong lĩnh vực bay vào vũ trụ. Cuộc đua này đạt đỉnh vào ngày 20 tháng 7 năm 1969, khi Apollo 11, một tàu vũ trụ có người lái, hạ cánh lên Mặt Trăng. Trong bài tập này, nhiệm vụ của bạn là tạo một biểu đồ chuỗi thời gian tóm tắt cuộc chạy đua đầu tiên: cuộc đua giành ưu thế bay vào vũ trụ giữa các quốc gia.
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 framestate_launches. - Tạo biểu đồ đường hiển thị số lần phóng theo năm (
launch_year) cho từng quốc gia/chủ thể (state_code). - Vẽ mỗi đường bằng một màu khác nhau.
- Bật khả năng chọn (tức là làm nổi bật) từng quốc gia/chủ thể.
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
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 %>%
___(___, ___, ___) %>%
___() %>%
___()