R语言Plotly：柱形折线图颜色区分与自定义图例问题

问题原因 #

现有代码的核心问题是plot_ly()初始化时设置的全局color=~project映射会默认传递给后续所有添加的图层：

• 折线图层会自动复用柱状图的配色规则，导致无法单独设置折线颜色
• 全局颜色仅映射project字段，因此图例只显示项目名，无法拼接国家字段
• 未对折线做分组映射，会导致两组长期均值线连为一条乱序折线

修复代码 #

library(plotly)

# 预处理数据：生成project+Country的组合图例标签
# dplyr写法需先加载dplyr包：
# library(dplyr)
# data <- data |> mutate(plot_label = paste(project, Country, sep = " - "))
# base R写法无需加载额外包：
data$plot_label <- paste(data$project, data$Country, sep = " - ")

fig <- plot_ly() |>
  # 单独添加分组柱状图层，独立配置颜色
  add_bars(
    data = data,
    x = ~month,
    y = ~value,
    color = ~plot_label,
    # 柱状图专属配色
    colors = c("#4E79A7", "#F28E2B"),
    name = ~plot_label,
    legendgroup = ~plot_label, # 绑定图例组，同组元素联动
    barmode = "group"
  ) |>
  # 单独添加折线图层，独立配置和柱子不同的颜色
  add_lines(
    data = data,
    x = ~month,
    y = ~LongTermWI,
    color = ~plot_label,
    # 折线专属配色（和同组柱子为同色系深色，做区分的同时保持对应关系）
    colors = c("#1A3A5C", "#99520E"),
    name = ~paste(plot_label, "长期均值"),
    legendgroup = ~plot_label,
    line = list(width = 2.5)
  ) |>
  # 坐标轴优化
  layout(
    xaxis = list(title = "月份", tickmode = "array", tickvals = 1:12),
    yaxis = list(title = "指标值"),
    legend = list(title = list(text = "分组"))
  )

fig

关键说明 #

• 不要在plot_ly()全局层设置颜色映射，改为在每个add_*图层单独配置，就可以给柱子和折线分别设置完全独立的配色，不会互相干扰
• 提前拼接project和Country字段生成标签列，映射到color和name属性就能直接实现组合图例的效果
• 给同国家/项目的柱子和折线设置相同的legendgroup，点击图例时可以同步显示/隐藏对应分组的所有图形元素，交互更流畅
• 如果不需要折线单独显示图例项，可以在add_lines()内加参数showlegend = FALSE，仅保留柱子的组合图例即可。

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