如何在Plotly R中为水平条形图的前5个条形自定义颜色

要实现这个需求，核心是给数据添加分组标记，让Plotly根据分组分配对应颜色，具体操作如下：

1. 给数据框新增颜色分组列
   在现有数据里加一列，明确标记出前5个高数值条目和其余条目：

   # 前5条标记为top5，其余标记为others
   df$color_group <- ifelse(seq_along(df$values) <= 5, "top5", "others")
   

2. 修改绘图代码绑定颜色规则
   在plot_ly函数中，通过color参数绑定新增的分组列，再用colors参数指定对应颜色（绿色用#00a86b，默认蓝色用#1f77b4），同时关闭图例避免冗余：

   # 为使水平条形按降序显示，设置因子水平为升序
   df$categories <- factor(df$categories, levels = unique(
       df$categories)[order(df$values,
       decreasing = FALSE)]
   )
   # 绘制带指定颜色的水平条形图
   fig <- plot_ly(df, x = ~values, y = ~categories, 
                   type = 'bar', orientation = 'h',
                   color = ~color_group,
                   colors = c("top5" = "#00a86b", "others" = "#1f77b4"),
                   showlegend = FALSE)
   fig
   

生成的图表里，数值最高的前5个条形（a、b、c、d、e）会显示为绿色，剩余15个保持默认蓝色，且不会出现多余图例。

内容的提问来源于stack exchange，提问作者The Curious One