MulaiMulai sekarang secara gratis

Linimasa perlombaan antariksa

“Perlombaan” antariksa pertama dimulai ketika Amerika Serikat dan Uni Soviet berusaha menjadi kekuatan global dalam penerbangan antariksa. Puncaknya terjadi pada 20 Juli 1969, saat Apollo 11, wahana berawak, mendarat di bulan. Pada latihan ini, tugas Anda adalah membuat plot deret waktu yang merangkum perlombaan antariksa pertama: perlombaan keunggulan penerbangan antariksa antarnegara.

Paket plotly, crosstalk, dan dplyr sudah dimuat.

Latihan ini adalah bagian dari kursus

Visualisasi Data Interaktif Tingkat Menengah dengan plotly di R

Lihat Kursus

Petunjuk latihan

  • Buat objek SharedData baru dari data frame state_launches.
  • Buat bagan garis yang menampilkan jumlah peluncuran per tahun (launch_year) untuk tiap negara bagian (state_code).
  • Gambar setiap garis dengan warna yang berbeda.
  • Aktifkan pemilihan (yaitu penyorotan) untuk satu negara bagian secara individual.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# 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 %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
Edit dan Jalankan Kode