我对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)
))
})
在这个过程中,我哪里错了?
谢谢。
发布于 2020-02-06 03:51:53
您应该使用renderGauge
而不是renderPlot
https://stackoverflow.com/questions/60086191
复制相似问题