Я относительно новичок в shiny и flexdashboard, но я пытаюсь создать диаграмму калибровки из отфильтрованного набора данных.
Цель состоит в том, чтобы отфильтровать набор данных по переменной (в ReprEx это gear), а затем извлечь самое низкое значение в другой переменной из отфильтрованного набора данных (в ReprEx я хочу найти самое низкое mpg).
Сначала я выбираю input.
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)
))
})
Где в этом процессе я иду не так?
Спасибо.