R Shiny 仪表图

Question

有人可以帮我在 R Shiny 中绘制仪表图吗？我不需要它是动态的，但是要有一个 KPI 分配一个值并在我运行应用程序时显示它应该是红色的，从 0 到0.3，黄色从 0.3 到 0.5，绿色从 0.5 到 1。

Answer 1

flexdashboard提供了这样的仪表图:

library(shiny)
library(flexdashboard)

ui <- fluidPage(
  numericInput("value", label = "Select value", min = 0, max = 1, value = 0.5, step = 0.1),
  gaugeOutput("gauge")
)

server <- function(input, output) {

  output$gauge = renderGauge({
    gauge(input$value, 
          min = 0, 
          max = 1, 
          sectors = gaugeSectors(success = c(0.5, 1), 
                                 warning = c(0.3, 0.5),
                                 danger = c(0, 0.3)))
  })
}

shinyApp(ui = ui, server = server)