如何在仪表图中使用反应过滤数据集？

Question

我是比较新的shiny和flexdashboard ，但我想从筛选的数据集生成计图表。

目标是过滤一个变量上的数据集（在 ReprEx 中它是gear ），然后从过滤后的数据集中提取另一个变量中的最低值（在 ReprEx 中，我想找到最低的mpg ）。

首先，我选择输入。

selectInput("x", "Gear", choices = mtcars$gear)

然后我目前正在创建一个反应数据集，在侧边栏中带有一个齿轮过滤器。

df <- reactive({
  mtcars %>% filter(gear == input$x)
})

最后，我渲染仪表图，尝试将列mpg提取到向量x ，然后将min(x)输入仪表图。

renderPlot({
     x <- df()[,"mpg"]
gauge(min(x), min = 0, max = 50, gaugeSectors(
  success = c(41, 50), warning = c(21, 40), danger = c(0, 20)
))
})

在这个过程中我哪里出错了？

谢谢。

Answer 1

您应该使用renderGauge而不是renderPlot

查看官方文档