Aan de slagGa gratis aan de slag

Een tijdslider toevoegen

In de vorige les maakte je een animatie die het aantal lanceringen per staat door de jaren heen toont. Een schuifbalk is een alternatief voor die animatie en geeft je volledige controle over welk deel van het verhaal je wilt onderzoeken. Je kunt bijvoorbeeld van begin tot eind bekijken of je alleen richten op de jaren 60. In deze oefening is het jouw taak om een schuifbalk onder de lijngrafiek met staatgebaseerde lanceringen toe te voegen.

plotly, crosstalk, dplyr en de gegevensset state_launches zijn voor je geladen.

Deze oefening maakt deel uit van de cursus

Gemiddeld gevorderde interactieve datavisualisatie met plotly in R

Cursus bekijken

Oefeninstructies

  • Bereken het aantal lanceringen per state_code en launch_year, en zet dit om naar een SharedData-object. Sla het resultaat op in shared_launches.
  • Gebruik shared_launches om een lijngrafiek te maken die het aantal lanceringen (n) per staat in de tijd toont. Sla deze grafiek op als launch_ts. Gebruik kleur om de state_code weer te geven.
  • Plaats een slider onder de grafiek om de weergegeven jaren te filteren. Geef deze slider het label "Year".

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

# 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 = ___)
))
Code bewerken en uitvoeren