Začněte nyníZačněte zdarma

Přidání posuvníku pro čas

V předchozí lekci jsi vytvořil/a animaci zobrazující počet startů pro každý stát v průběhu let. Posuvník je alternativou k této animaci a dává ti plnou kontrolu nad tím, kterou část příběhu chceš zkoumat. Můžeš si ho přehrát od začátku do konce nebo se zaměřit třeba jen na 60. léta. V tomto cvičení je tvým úkolem přidat posuvník pod spojnicový graf startů podle státu.

plotly, crosstalk, dplyr a datová sada state_launches jsou již načtené.

Toto cvičení je součástí kurzu

Intermediate Interactive Data Visualization with plotly in R

Zobrazit kurz

Pokyny k cvičení

  • Spočítej počet startů podle state_code a launch_year a výsledek převeď na objekt SharedData. Ulož výsledek do proměnné shared_launches.
  • Pomocí shared_launches vytvoř spojnicový graf zobrazující počet startů (n) pro každý stát v čase. Ulož tento graf jako launch_ts. Pomocí barvy znázorni state_code.
  • Umísti posuvník pod graf pro filtrování zobrazených let. Pojmenuj tento posuvník "Year".

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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 = ___)
))
Upravit a spustit kód