Rshiny Highchart:保持x轴上订单更改类别的固定颜色

library(shiny)
library(highcharter)

ui <- fluidPage(
  highchartOutput("chart")
)

server <- function(input, output) {
  output$chart <- renderHighchart({
    # 创建Highchart图表对象
    hc <- highchart() %>%
      hc_chart(type = "column")  # 设置图表类型为柱状图
    
    # 定义数据系列并设置颜色
    series <- list(
      list(
        name = "订单更改类别1",
        data = c(10, 20, 30),
        color = "#FF0000"  # 设置颜色为红色
      ),
      list(
        name = "订单更改类别2",
        data = c(15, 25, 35),
        color = "#00FF00"  # 设置颜色为绿色
      ),
      list(
        name = "订单更改类别3",
        data = c(5, 15, 25),
        color = "#0000FF"  # 设置颜色为蓝色
      )
    )
    
    # 添加数据系列到图表中
    hc <- hc_add_series_list(hc, series)
    
    hc
  })
}

shinyApp(ui, server)