Přidání interaktivního výstupu s grafem
Podobně jako u interaktivních tabulek můžeš snadno převést statický graf vytvořený pomocí ggplot2 na interaktivní graf pomocí balíčku plotly. Pro vykreslení interaktivního grafu použij plotly::renderPlotly() a zobraz ho pomocí plotly::plotlyOutput().
Nezapomeň, že stejně jako u ostatních renderovacích funkcí musí být kód uvnitř plotly::renderPlotly() obalený složenými závorkami {}!
Toto cvičení je součástí kurzu
Tvorba webových aplikací se Shiny v R
Pokyny k cvičení
- Vytvoř interaktivní graf 10 nejoblíbenějších jmen podle pohlaví a roku. Výstup pojmenuj
"plot_trendy_names"a ke generování grafu použij funkciplot_trends(). - Zobraz graf v UI.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
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)