如何用highcharter创建共享同一图例的多雷达图框架

问题背景 #

我尝试用highcharter创建包含多个雷达图的布局，要求所有图形共享同一个通用图例（包含Product1、Product2等所有产品类别）。当前代码已实现多图排列，但每个图形都自带独立图例，在图数量较多的场景下显得冗余。已知Highcharts的linkedTo配置可实现系列关联共享图例，但不知道如何在R的highcharter中适配该配置。

可复现代码 #

library(highcharter)
library(dplyr)

df <- data.frame(Series = c(rep(paste0("Serie", 1:4), 2), rep(paste0("Serie", 5:8), 2)),
                 Product = rep(c(rep("Product1", 4), rep("Product2", 4)), 2),
                 Value = c(5.8, 6.3, 8.1, 2.3, 4.4, 4.6, 7.7, 6.6,
                           6.8, 2.4, 4.2, 2.5, 7.3, 3.2, 5.5, 4.5),
                 Graph = c(rep("Graph1", 8), rep("Graph2", 8)))

# 原代码：每个图都有独立图例
df %>%
  group_by(Graph) %>%
  group_map( ~ {
    .x %>%
      hchart(type = "line", hcaes(y = Value, group = Product)) |>
      hc_chart(polar = TRUE) |>
      hc_xAxis(categories = .x %>% pull(Series) %>% unique(), lineWidth = 0, tickmarkPlacement = "on") |>
      hc_yAxis(gridLineInterpolation = "polygon",min = 0, title = list(text = NULL)) |>
      hc_plotOptions(line = list(pointPlacement = "on")) %>% 
      hc_legend(enabled = T, layout = 'proximate', align = 'left', floating = FALSE)
    
  }) %>% hw_grid(ncol = 2, browsable = TRUE)

解决方案：通过linkedTo实现系列关联共享图例 #

核心思路是：仅在第一个图表显示图例，给第一个图表的每个系列设置唯一id；其余图表禁用图例，并将每个系列通过linkedTo关联到第一个图表的对应系列，这样操作第一个图的图例时，所有图的对应系列会同步显示/隐藏。

修改后的代码 #

library(highcharter)
library(dplyr)
library(purrr)

df <- data.frame(Series = c(rep(paste0("Serie", 1:4), 2), rep(paste0("Serie", 5:8), 2)),
                 Product = rep(c(rep("Product1", 4), rep("Product2", 4)), 2),
                 Value = c(5.8, 6.3, 8.1, 2.3, 4.4, 4.6, 7.7, 6.6,
                           6.8, 2.4, 4.2, 2.5, 7.3, 3.2, 5.5, 4.5),
                 Graph = c(rep("Graph1", 8), rep("Graph2", 8)))

# 1. 生成所有图表的基础列表
chart_list <- df %>%
  group_by(Graph) %>%
  group_map( ~ {
    .x %>%
      hchart(type = "line", hcaes(y = Value, group = Product)) |>
      hc_chart(polar = TRUE) |>
      hc_xAxis(categories = .x %>% pull(Series) %>% unique(), lineWidth = 0, tickmarkPlacement = "on") |>
      hc_yAxis(gridLineInterpolation = "polygon", min = 0, title = list(text = NULL)) |>
      hc_plotOptions(line = list(pointPlacement = "on"))
  })

# 2. 处理第一个图表：保留图例，给每个系列设置id（用Product名称作为id）
chart_list[[1]] <- chart_list[[1]] %>%
  hc_legend(enabled = TRUE, layout = 'proximate', align = 'left', floating = FALSE) %>%
  hc_series(
    purrr::map(., function(series) {
      series$id <- series$name  # 用Product名称作为系列id
      series
    })
  )

# 3. 处理其余图表：禁用图例，将系列关联到第一个图表的对应id
chart_list[-1] <- purrr::map(chart_list[-1], function(chart) {
  chart %>%
    hc_legend(enabled = FALSE) %>%
    hc_series(
      purrr::map(., function(series) {
        series$linkedTo <- series$name  # 关联到第一个图中同名的系列id
        series
      })
    )
})

# 4. 组合成网格布局
hw_grid(chart_list, ncol = 2, browsable = TRUE)

关键说明 #

• 给第一个图表的系列设置id：这里直接用系列的name（即Product名称）作为id，确保后续关联的准确性
• 其余图表的系列通过linkedTo = series$name关联到第一个图的对应系列，这样图例操作会同步到所有图表
• 仅第一个图表保留图例，其余图表禁用图例，实现全局共享一个图例的效果

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