Peluncuran negara vs. swasta
Berdasarkan grafik sebelumnya, tampaknya, selain Tiongkok, terjadi penurunan jumlah peluncuran. Benarkah demikian? Atau apakah perlombaan antariksa telah merambah pasar swasta? Pada latihan ini, tugas Anda adalah mengeksplorasi pertanyaan tersebut dengan membandingkan jumlah peluncuran oleh negara dan perusahaan swasta dari waktu ke waktu.
Paket plotly, crosstalk, dan dplyr sudah dimuat.
Latihan ini adalah bagian dari kursus
Visualisasi Data Interaktif Tingkat Menengah dengan plotly di R
Petunjuk latihan
- Buat objek
SharedDatabaru dari data framelaunches_by_year. - Buat bagan garis untuk merepresentasikan jumlah peluncuran dari waktu ke waktu (
launch_year) menurutagency_type. Gunakan warna untuk merepresentasikanagency_type. - Aktifkan pemilihan (yaitu highlighting) untuk sebuah
agency_type.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()