根據滑塊輸入更新Shiny Plots

Question

我在Shiny Dashboard頁面上的四個框中製作了四個圖。我希望基於Slider的輸入從1到4的範圍內動態地在一個框中表示所有四個圖。所有圖都不同並且不相關。我想知道基本的語法來做到這一點。謝謝

Answer 1

由於@豬排評論你應該檢查出the website which is going to help you in asking the question on stackoverflow。

因爲你是這個社區中的新人，我會給你一個提示，告訴你如何用滑塊輸入更新閃亮的圖。

下面是代碼：

library(shiny) 
library(shinydashboard) 
library(ggplot2) 

data <- data.frame(x=c(1,2,3,4),y=c(10,11,12,13)) 
ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(sliderInput("slider","Slider", min=1, max=4, step =1, value=1)), 
    dashboardBody(
    fluidRow(column(6,plotOutput('plot1'),plotOutput('plot2')), 
      column(6,plotOutput('plot3'),plotOutput('plot4')) 
         ))) 
server <- function(input, output, session) { 
    output$plot1 <- renderPlot({ 
    ggplot(data,aes_string(x=input$slider, y="y"))+geom_point(size=5) 
    }) 
    output$plot2 <- renderPlot({ 
    ggplot(data,aes_string(y=input$slider, x="y"))+geom_point(size=5) 
    }) 

    output$plot3 <- renderPlot({ 
    ggplot(data,aes_string(y=input$slider, x="y"))+geom_line(size=5) 
    }) 

    output$plot4 <- renderPlot({ 
    ggplot(data,aes_string(x=input$slider, y="y"))+geom_line(size=5) 
    }) 
} 

shinyApp(ui, server) 

下一次不要忘記創建一些示例代碼和樣本數據！