与闪亮的单选按钮不同的列

Question

)

我对 R 和 Shiny 都很陌生，但让我解释一下我当前的问题。

我有一个如下所示的 csv 文件：

周	第一个	第二	第三
1	11	22	33
2	44	55	66
3	77	88	99

我创建了一个折线图，在 x 线上显示“周”，在 y 线上显示“第一”列。我还实现了我可以访问周之间的范围，这样我就可以选择我想查看的数据（f.E 仅第 2 - 3 周或 1 - 2）

我现在正在尝试做的是以下内容，我设置了一些单选按钮...

radioButtons("typeInput", "Choose",
              choices = c("First", "Second", "Third"),
              selected = "First"))

并且我正在尝试使其具有交互性，因此当我选择单选按钮“第二”时，我希望看到折线图上“第二”列中的数据与将在以下位置选择的“周”列进行比较所有时间

到目前为止，这是我的服务器代码：

server <- function(input, output) {
output$PLOT <- renderPlot({
    filtered <-
      Data %>%
      filter(week>= input$Weekinput[1],
             week<= input$Weekinput[2]
      )
    ggplot(filtered, aes(week, First)) +
      geom_line()
  })
}

有人知道我怎样才能得到这个结果吗？

Answer 1

您可以使用 input$typeInput 从单选按钮中获取选定的值。

output$PLOT <- renderPlot({
  filtered <-
    Data %>%
    filter(week>= input$Weekinput[1],
           week<= input$Weekinput[2]
    )
  ggplot(filtered, aes(week, .data[[input$typeInput]])) +
    geom_line()
})

与闪亮的单选按钮不同的列

different column from radio button in shiny

r

shiny

shinyapps