如何使用shiny中的反应数据控制plot_ly中的条形图颜色

library(shiny)
library(plotly)

ui <- fluidPage(
  titlePanel("使用反应数据控制条形图颜色"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件，用于控制颜色
      selectInput("color", "选择颜色", choices = c("红色", "绿色", "蓝色"))
    ),
    mainPanel(
      # 添加条形图
      plotlyOutput("barplot")
    )
  )
)

server <- function(input, output) {
  # 创建反应数据对象
  color <- reactive({
    switch(input$color,
           "红色" = "red",
           "绿色" = "green",
           "蓝色" = "blue")
  })
  
  # 生成条形图
  output$barplot <- renderPlotly({
    plot_ly(data = iris, x = ~Species, y = ~Sepal.Length, type = "bar", color = color())
  })
}

shinyApp(ui, server)