R shiny gauge chart

Question

Könnte jemand mir helfen, ein Messdiagramm in R Shiny zu zeichnen? Ich brauche es nicht dynamisch zu sein, sondern einen KPI zu haben, den ich mit einem Wert belege und zeige, wenn ich die App starte. es sollte von 0 bis 0,3, gelb von 0,3 bis 0,5 und grün von 0,5 bis 1.

Answer 1

flexdashboard bietet so ein Tachometerdiagramm rot:

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)