如何在Plotly R堆叠条形图中设置离散区分的颜色？

针对你在Shiny应用中遇到的Plotly堆叠条形图颜色区分度问题，我提供几个实用方案，既能保证颜色清晰可辨，又能适配动态变化的tissue_detail类别：

1. 自定义高区分度离散色板 #

预定义的Paired、Set3等色板颜色数量有限且部分色调接近，当tissue_detail类别较多或集中在同色系时就会难以区分。你可以创建一个函数，混合多个色系的颜色，生成足够多且对比强烈的颜色：

# 生成高区分度离散颜色的函数
generate_distinct_colors <- function(n) {
  # 混合多个Brewer色系，优先用区分度高的
  color_palette <- c(
    RColorBrewer::brewer.pal(12, "Set3"),
    RColorBrewer::brewer.pal(8, "Dark2"),
    RColorBrewer::brewer.pal(12, "Paired"),
    RColorBrewer::brewer.pal(9, "Pastel1")
  )
  # 如果需要的颜色超过已有集合，用hue生成均匀分布的颜色补充
  if (n > length(color_palette)) {
    color_palette <- c(color_palette, scales::hue_pal()(n - length(color_palette)))
  }
  return(color_palette[1:n])
}

2. 动态适配Shiny输入的颜色映射 #

因为tissue_detail会随Shiny选择输入变化，你需要在renderPlotly中动态生成对应数量的颜色，确保每个当前存在的类别都有唯一颜色：

output$your_plot_id <- renderPlotly({
  # 获取当前数据中唯一的tissue_detail值
  current_details <- unique(tissue_dt$tissue_detail)
  # 生成对应数量的高区分度颜色
  custom_colors <- generate_distinct_colors(length(current_details))
  
  plot_ly(data = tissue_dt, 
          y = ~counts, 
          x = ~tissue, 
          type = 'bar', 
          name = ~tissue_detail, 
          color = ~tissue_detail, 
          colors = custom_colors) %>% 
    layout(barmode = "stack")
})

3. 匹配目标图的精确颜色 #

如果已知目标图中每个tissue_detail对应的颜色代码，你可以创建一个命名颜色向量，动态匹配当前数据的类别，缺失的类别用备用颜色补充：

# 假设目标图的颜色映射表（替换成你实际的颜色代码）
target_color_map <- c(
  "Brain_Cortex" = "#E41A1C",
  "Brain_Hippocampus" = "#377EB8",
  "Heart_Ventricle" = "#4DAF4A",
  "Heart_Atrium" = "#984EA3",
  # 更多目标颜色...
)

output$your_plot_id <- renderPlotly({
  current_details <- unique(tissue_dt$tissue_detail)
  # 提取当前类别对应的目标颜色
  used_colors <- target_color_map[current_details]
  # 补充缺失类别的颜色
  missing_count <- length(current_details) - sum(!is.na(used_colors))
  if (missing_count > 0) {
    used_colors[is.na(used_colors)] <- generate_distinct_colors(missing_count)
  }
  
  plot_ly(data = tissue_dt, 
          y = ~counts, 
          x = ~tissue, 
          type = 'bar', 
          name = ~tissue_detail, 
          color = ~tissue_detail, 
          colors = used_colors) %>% 
    layout(barmode = "stack")
})

这些方案的核心是动态生成与当前数据匹配的高区分度颜色，避免了预定义色板的局限性，同时能完美适配Shiny的交互式输入变化。

内容的提问来源于stack exchange，提问作者Danish Zahid Malik