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

Question

我正在创建一个R闪亮的仪表板，并且正在过滤数据。 反应性数据已处理。 当做出不同的选择时，条形图中的颜色会改变并且不一致。 颜色表示良好，中性，不良，并且不可用，因此顺序很重要。 完整的闪亮应用程序位于： https ://stoltzmaniac.shinyapps.io/medicare_data/，代码位于： https : //github.com/stoltzmaniac/Medicare/tree/master/shinyApp （server.R和ui.R都）密谋部分看起来像：

plot_ly(df_filtered, x = ~Score, y = ~Hospital.Name, 
        type = "bar", color = ~Compared.to.National, colors = FORMAT_CHART_COLOR_LIST, 
        hoverinfo = 'text', text = ~paste('State: ', State, 
                                          '<br> City: ', City,
                                          '<br> Score: ', Score))

Answer 1

可以帮助的人在这里说（向下滚动）。 定义一个命名的颜色向量：

global_colors <- setNames(rainbow(nrow(data)), data$brand) # this maps brand to color

我想你的数据是

data <- head(mtcars)
data$brand <- rownames(data)

然后，将情节创建为

plot_ly(data, x = ~brand, y = ~hp, type = "bar", color = ~brand, colors = globalcolors)

（请注意， globalcolors之前没有~ ，因为这是全局颜色向量）

希望这可以帮助 ：）