如何使用Plotly的subplot函数实现共享图例，使每个分组仅在图例中显示一次

这个问题在使用subplot()组合多个Plotly图表时很常见——每个子图都会生成独立的图例项，最终导致同一分组名称重复出现。这里有两种高效的程序化解决方案：

方法1：仅保留第一个子图的图例 #

核心思路是：遍历生成子图时，让第一个子图显示图例，其余子图隐藏图例，同时保持颜色映射一致，这样图例就只会出现一次。

修改后的代码如下：

library(plotly)

df1 <- data.frame(col1 = rep(LETTERS[1:3], each = 4), col2 = rnorm(12), col3 = runif(12), col4 = rep(c("Fred", "Bob"), each = 6))
df1_list <- split(df1, df1$col1)
colors <- setNames(c('red', 'blue'), c("Fred", "Bob"))

# 生成子图列表时控制图例显示逻辑
plot_list <- lapply(seq_along(df1_list), function(i) {
  base_plot <- plot_ly(df1_list[[i]], x = ~col2, y = ~col3, color = ~col4, colors = colors)
  # 仅第一个子图显示图例
  if (i != 1) {
    base_plot <- base_plot %>% layout(showlegend = FALSE)
  }
  base_plot
})

# 组合子图
subplot(plot_list)

方法2：用legendgroup统一图例分组 #

如果需要更好的交互性（比如点击图例时所有同分组的标记同步显隐），可以用legendgroup参数把相同分组的标记归为一组，再设置每组仅显示一次图例项。

代码示例：

library(plotly)

df1 <- data.frame(col1 = rep(LETTERS[1:3], each = 4), col2 = rnorm(12), col3 = runif(12), col4 = rep(c("Fred", "Bob"), each = 6))
df1_list <- split(df1, df1$col1)
colors <- setNames(c('red', 'blue'), c("Fred", "Bob"))

plot_list <- lapply(df1_list, function(arg1) {
  plot_ly(arg1, x = ~col2, y = ~col3, color = ~col4, colors = colors,
          # 将同col4值的标记绑定到同一图例组
          legendgroup = ~col4,
          # 默认隐藏图例，仅第一个子图的图例项显示
          showlegend = arg1$col1[1] == names(df1_list)[1])
})

subplot(plot_list)

两种方法的适用场景 #

• 方法1实现简单，适合子图结构清晰、仅需消除图例重复的场景。
• 方法2的交互性更强，适合需要对同分组元素进行统一操作的复杂可视化需求。

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