Devlete karşı özel fırlatmalar
Önceki grafiğe göre, Çin dışında fırlatmalarda bir düşüş var gibi görünüyor. Bu doğru mu? Yoksa uzay yarışı özel pazara mı kaydı? Bu egzersizde, zaman içinde devletler ve özel şirketler tarafından yapılan fırlatma sayılarını karşılaştırarak bu soruyu keşfetmen isteniyor.
plotly, crosstalk ve dplyr paketleri zaten yüklendi.
Bu egzersiz
R ile plotly'de Orta Düzey Etkileşimli Veri Görselleştirme
kursunun bir parçasıdırEgzersiz talimatları
launches_by_yearveri çerçevesinden yeni birSharedDatanesnesi oluştur.- Zaman içindeki (
launch_year) fırlatma sayılarınıagency_typebazında göstermek için bir çizgi grafik oluştur. Renkleriagency_type'ı temsil edecek şekilde kullan. - Bir
agency_typeseçimini (yani vurgulamayı) etkinleştir.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()