在shiny中使用反应数据更改条形图颜色

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  titlePanel("使用反应数据更改条形图颜色"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件，用于选择颜色
      selectInput("color", "选择颜色", choices = c("红色", "绿色", "蓝色"))
    ),
    mainPanel(
      plotOutput("barplot")  # 显示条形图的输出区域
    )
  )
)

server <- function(input, output) {
  # 定义一个反应式数据，用于根据用户选择的颜色生成条形图
  reactive_data <- reactive({
    color <- switch(input$color,
                    "红色" = "red",
                    "绿色" = "green",
                    "蓝色" = "blue")
    
    # 生成条形图数据
    data <- data.frame(Category = c("A", "B", "C"),
                       Value = c(10, 20, 30))
    
    # 生成条形图
    barplot(data$Value, names.arg = data$Category, col = color)
  })
  
  # 使用反应式数据生成条形图
  output$barplot <- renderPlot({
    reactive_data()
  })
}

shinyApp(ui, server)