Question

我对Shiny完全不熟悉，所以首先，道歉我的经验不足。

我正在使用R Markdown编写动态报告，我有几个值得动态显示的图。

让我们使用mtcars数据集，让我们创建4个图：

plot1 <- plot(mtcars$mpg)
plot2 <- plot(mtcars$cyl)
plot3 <- plot(mtcars$hp)
plot4 <- plot(mtcars$qsec)

那么，如何创建一个相应显示这四个图的下拉菜单？

Answer 1

我的意思是你的例子是我在stackoverflow上见过的最简单的例子。我建议你花一点时间做这个教程，然后你尝试构建自己的应用程序，如果你被困在这里回来：）

要学习闪亮，我建议Rstudio's tutorial。在学习并再次忘记所有内容后，我建议您使用wonderful cheatsheet provided by Rstudio。

app.r看起来像这样：

library(shiny)
library(plotly)

### ui.r
ui <- fluidPage(selectInput('my_dropdown','Choose Column',colnames(mtcars)),
                plotOutput('my_plot')
)

  ### server.r
  server <- function(input, output) {
    output$my_plot <- renderPlot(
      plot(mtcars[,input$my_dropdown],ylab=input$my_dropdown,xlab='value')
    )
  }
shinyApp(ui,server)

只是为了完整起见。也可以使用plotly创建此类图表。优点是您可以在独立的html中使用它。缺点是情节下降是代码密集型的。 plotly的教程位于：https://plot.ly/r/dropdowns/

带有R输出的下拉菜单，使用Shiny in R Markdown

1 个答案: