R语言plotly绘图如何实现饼图与柱状图配色一致

要让饼图、柱状图等不同类型图表的同分类配色完全一致，本质是建立固定的「分类值-颜色」映射关系，强制所有图表调用同一套映射规则，避免plotly给不同图表类型自动分配颜色时出现错位。 #

前置修正：先规范数据处理 #

你原有代码中对数据集重复调用了两次melt()，会导致数据结构异常，先把数据处理为规范格式，同时和饼图的统计逻辑保持一致（饼图默认会对同分类的数值做汇总）：

library(plotly)
library(reshape2)
library(dplyr)

# 构造原始数据集
df <- data.frame(
  city = c("NYC","Seattle","Boston","LA","Seattle"),
  value = c(100,200,300,400,500)
)
# 仅做一次格式转换，指定id变量避免冗余列
df <- melt(df, id.vars = "city")
# 提取所有唯一分类，顺序和饼图默认读取的分类顺序一致
city_cat <- unique(df$city)

建立固定颜色映射 #

Plotly默认离散色板的取色逻辑是按分类出现顺序依次分配，你可以直接提取对应长度的默认色值，绑定分类名做成可复用的映射向量：

# 提取和分类数量匹配的默认色值
palette <- plotly_default_colors(length(city_cat))
# 绑定分类名，生成命名颜色向量
color_mapping <- setNames(palette, city_cat)

如果需要自定义配色，直接替换palette中的十六进制色值即可，只要保持和分类一一对应就能生效。

绘图时统一调用颜色映射 #

环形饼图（和原有效果完全一致） #

fig_pie <- df %>% 
  plot_ly(
    labels = ~city, 
    values = ~value,
    marker = list(colors = ~color_mapping[city])
  ) %>% 
  add_pie(hole = 0.6)
fig_pie

同配色柱状图 #

先对同分类数值做汇总，和饼图的数值统计逻辑保持一致，再调用同一套颜色映射：

# 汇总同城市的数值
df_bar <- df %>% 
  group_by(city) %>% 
  summarise(total_value = sum(value), .groups = "drop")

fig_bar <- plot_ly(
  df_bar,
  x = ~city,
  y = ~total_value,
  type = "bar",
  marker = list(color = ~color_mapping[city])
)
fig_bar

后续不管绘制折线图、散点图还是分面图，只要给分类属性传入同一个color_mapping做颜色映射，就能保证所有图表的同分类颜色完全统一。

内容的提问来源于stack exchange，提问作者silent_hunter