Question

大家下午好，

我正在Rshiny的条形图上工作。在X轴上，我显示了3个月。他们的订单可能会根据用户的输入而改变。我希望每个月保持相同的颜色，无论它在x轴上的位置如何：例如，我想要＆＃34; Jan＆＃34;系列为蓝色，无论它位于X轴的第3位还是第1位。我在下面提供了一个简化的代码示例：

library("shiny")
library("highcharter")

data(citytemp)

ui <- fluidPage(
    h1("Highcharter EXAMPLE"),
    fluidRow(
        column(width = 8,
               highchartOutput("hcontainer",height = "500px")
        ),
        selectInput("option", label = "",  width = "100%",
                    choices = c("Tokyo", "NY"))
    )
)

server <- function(input, output) {
    data <- citytemp[,c("month","tokyo","new_york")]
    data = data[data$month%in%c("Dec","Jan","Feb","Mar"),]
    choose_Option <- reactive({
        sort_option <- input$option
        if(sort_option=="Tokyo"){
            data = data[order(data$tokyo),]
        }
        else{
            data = data[order(data$new_york),]
        }
        return(data)
    })
    output$hcontainer <- renderHighchart({
        data = choose_Option()
        data = data[1:3,] 
        colors_for_categories <- c()

        colors_fun <- function(month){
            if(month=="Dec"){return (c("#1B1858"))}
            if(month=="Jan"){return (c("#00A1DE"))}
            if(month=="Feb"){return (c("#2E28AB"))}
            if(month=="Mar"){return (c("#0D653C"))} 
        }

        colors_for_categories  <- colors_fun(data$month[[1]])
        for(m in 2:3){
            colors_for_categories  <- append(colors_for_categories ,colors_fun(data$month[[m]]))
        }
        chart <-  highchart() %>% 
            hc_chart(type = "bar") %>% 
            hc_title(text = "Monthly Average Temperature for main cities") %>% 
            hc_subtitle(text = "Source: WorldClimate.com") %>% 
            hc_xAxis(categories = data$month) %>% 
            hc_yAxis(title = list(text = "Temperature (C)")) 

        hc <- chart %>% hc_add_series(yAxis=0,name="Tokyo",data = data$tokyo,colorByPoint=TRUE,colors=colors_for_categories )
        hc <- hc %>% hc_add_series(yAxis=0,name="NY",data = data$new_york,colorByPoint=TRUE,colors=colors_for_categories )    

        return(hc)
    })
} 

shinyApp(ui = ui, server = server)

您可以在图表下方的选项中看到可以选择东京或纽约。根据您的选择，2月和1月在X轴上的位置不同，但相关系列的颜色始终相同。我实施的解决方案非常有限：它包括确定每个月的新位置（每次输入更改！），然后分配正确的颜色。但这需要适用于大量数据，我认为这不是最好的方法。您对处理此问题有什么想法/建议吗？非常感谢您的帮助！最好的，Madzia

Answer 1

问题解决了！该方法可以是创建具有所有颜色和表格的表格。个月。每个图表都使用相同的表格，因此我们可以轻松创建上面的colors_for_categories。如果您对此有任何疑问，请与我们联系。

Best，Madzia

Rshiny Highchart：为x轴上的订单更改类别保留固定颜色

1 个答案: