如何在 R Markdown Shiny 文档中制作交互式图表？

Question

我对 R Markdown 和 Shiny 非常陌生，我正在尝试制作一个简单的交互式 html 文档。我有两个共享相同行名称（公司名称）的数据框，其余的是基于不同度量的百分比（每行加起来为 1）。我想要的是当人们选择一家公司时，会相应地出现两个条形图。我可以创建一个下拉列，但不确定如何添加这两个图表。以下是我的代码：

  ---
  title: "Test"
  author: "Z"
  date: "March 30, 2018"
  output: html_document
  runtime: shiny
  ---

  ```{r}
  Names = c('A','B','C')
  Rev = c(-0.2,0.3,0.4)
  Mar = c(0.5,0.2,0.1)
  Mul = c(0.5,0.2,0.4)
  Lev = c(0.2,0.3,0.1)
  df1 = data.frame(Names,Rev,Mar,Mul,Lev)

  Sal = c(0.4,0.2,0.4)
  Ear = c(0.1,0.2,0.3)
  Pri = c(0.3,0.1,0.1)
  Dev = c(0.2,0.5,0.2)
  df2 = data.frame(Names,Sal,Ear,Pri,Dev)

  selectInput(inputId = 'Company', label = 'Choose a company',
        choices = Names)
  ```

Answer 1

这是一种方法：

renderPlot({ ## wrap the plot prep and plot function in a reactive space
  data_to_plot <- unlist(df1[df1$Names == input$Company, 2: ncol(df1)]) # get data
  barplot(data_to_plot) # call the plot function
})

这是可行的，因为闪亮只允许输入影响反应空间中的事物（大括号{}）。此外，可以使用 input 对象调用闪亮的输入。