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, kursun bir parçasıdır
R ile plotly'de Orta Düzey Etkileşimli Veri Görselleştirme
Egzersiz 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ı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()