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 merupakan bagian dari kursus
Visualisasi Data Interaktif Tingkat Menengah dengan plotly di R
Instruksi 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 langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()