Adicionar saída de gráfico interativo
Assim como na criação de tabelas interativas, você pode transformar facilmente um gráfico estático feito com ggplot2 em um gráfico interativo usando o pacote plotly. Para renderizar um gráfico interativo, use plotly::renderPlotly() e exiba-o com plotly::plotlyOutput().
Lembre-se de que, assim como nas outras funções de renderização, o código dentro de plotly::renderPlotly() deve estar entre chaves {}!
Este exercício faz parte do curso
Construindo Aplicações Web com Shiny em R
Instruções do exercício
- Crie um gráfico interativo dos 10 nomes mais populares por sexo e ano. Dê ao output o nome
"plot_trendy_names"e use a funçãoplot_trends()para gerar o gráfico. - Exiba o gráfico na UI.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
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)