Zacznij terazZacznij za darmo

Dodawanie suwaka czasu

W poprzedniej lekcji utworzyłeś animację pokazującą liczbę startów rakiet dla poszczególnych państw na przestrzeni lat. Suwak to alternatywa dla takiej animacji – daje pełną kontrolę nad tym, którą część historii chcesz zbadać. Na przykład możesz przeglądać dane od początku do końca albo skupić się wyłącznie na latach 60. W tym ćwiczeniu Twoim zadaniem jest dodanie suwaka poniżej wykresu liniowego przedstawiającego starty według państwa.

Biblioteki plotly, crosstalk, dplyr oraz zbiór danych state_launches są już wczytane.

To ćwiczenie jest częścią kursu

Interaktywna wizualizacja danych średnio zaawansowana z plotly w R

Zobacz kurs

Instrukcje do ćwiczenia

  • Oblicz liczbę startów według state_code i launch_year, a następnie przekształć wynik w obiekt SharedData. Zapisz rezultat w zmiennej shared_launches.
  • Korzystając z shared_launches, utwórz wykres liniowy przedstawiający liczbę startów (n) dla każdego państwa w czasie. Zapisz ten wykres jako launch_ts. Użyj koloru do reprezentowania zmiennej state_code.
  • Umieść suwak poniżej wykresu, aby umożliwić filtrowanie wyświetlanych lat. Nadaj temu suwakom etykietę "Year".

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# Create a SharedData object containing the number of launches by year and state
shared_launches <- state_launches %>%
  count(___, ___) %>%
  ___()

# Create a line chart displaying the launches by state
launch_ts <- ___ %>%
  ___(x = ___, y = ___, color = ___) %>%
  ___()  

# Add a slider below the chart to filter the years displayed
___(list(___,
    ___(id = "time", label = ___, 
        sharedData = ___, column = ___)
))
Edytuj i uruchom kod