Uzay yarışı zaman çizelgesi
İlk "uzay yarışı", Amerika Birleşik Devletleri ve Sovyetler Birliği'nin uzay uçuşunda küresel güç olma çabalarıyla başladı. Bu yarış, 20 Temmuz 1969'da, mürettebatlı uzay aracı Apollo 11'in aya inişiyle zirve yaptı. Bu egzersizde, ülkelerin uzay uçuşu üstünlüğü için yarışını özetleyen bir zaman serisi grafiği oluşturman isteniyor.
plotly, crosstalk ve dplyr paketleri zaten yüklü.
Bu egzersiz, kursun bir parçasıdır
R ile plotly'de Orta Düzey Etkileşimli Veri Görselleştirme
Egzersiz talimatları
state_launchesveri çerçevesinden yeni birSharedDatanesnesi oluştur.- Her bir devlet (
state_code) için yıllara (launch_year) göre fırlatma sayısını gösteren bir çizgi grafiği oluştur. - Her çizgiyi farklı bir renkte çiz.
- Tek bir devleti seçmeyi (yani vurgulamayı) etkinleştir.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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 %>%
___(___, ___, ___) %>%
___() %>%
___()