Ajouter un graphique interactif en sortie

Comme pour les tableaux interactifs, vous pouvez facilement transformer un graphique statique créé avec ggplot2 en graphique interactif grâce au package plotly. Pour générer un graphique interactif, utilisez plotly::renderPlotly(), puis affichez-le avec plotly::plotlyOutput().

Rappelez-vous que, comme pour les autres fonctions de rendu, le code à l’intérieur de plotly::renderPlotly() doit être encapsulé entre accolades {} !

Cet exercice fait partie du cours

<cours>Créer des applications web avec Shiny en R</cours>

Voir le cours

Instructions de l’exercice

Créez un graphique interactif des 10 prénoms les plus populaires par sexe et par année. Nommez la sortie "plot_trendy_names" et utilisez la fonction plot_trends() pour générer le graphique.
Affichez le graphique dans l’interface (UI).

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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)

Modifier et exécuter le code