Voeg interactieve plot-output toe

Net als bij interactieve tabellen kun je een statische plot die je met ggplot2 hebt gemaakt eenvoudig omzetten naar een interactieve plot met het plotly-pakket. Om een interactieve plot te renderen, gebruik je plotly::renderPlotly(), en om hem weer te geven gebruik je plotly::plotlyOutput().

Onthoud: net als bij andere renderfuncties moet de code binnen plotly::renderPlotly() tussen accolades {} staan!

Deze oefening maakt deel uit van de cursus

Webapplicaties bouwen met Shiny in R

Cursus bekijken

Oefeninstructies

Maak een interactieve plot van de 10 populairste namen per geslacht en jaar. Noem de output "plot_trendy_names" en gebruik de functie plot_trends() om de plot te genereren.
Toon de plot in de UI.

Praktische interactieve oefening

Probeer deze oefening eens door deze voorbeeldcode in te vullen.

ui <- fluidPage(
  selectInput('name', 'Select Name', top_trendy_names$name)
  # CODE BELOW: Add a plotly output named 'plot_trendy_names'
  
)

server <- function(input, output, session){
  # Function to plot trends in a name
  plot_trends <- function(){
     babynames %>% 
      filter(name == input$name) %>% 
      ggplot(aes(x = year, y = n)) +
      geom_col()
  }
  # CODE BELOW: Render a plotly output named 'plot_trendy_names'

  
  
}

shinyApp(ui = ui, server = server)

Code bewerken en uitvoeren