如何为echarts4r图表的图例自定义边框颜色？

要让图例完全匹配散点的自定义符号和边框颜色，关键是给每个图例项单独配置样式，而不是用全局的itemStyle。以下是修正后的完整代码：

library(echarts4r)
library(dplyr)

the_data <- data.frame(
  key = c("a", "b", "c", "d", "e", "f"), 
  group = c("A", "B", "C", "D", "E", "F"), 
  x = c(0.495, -0.466, 0.85, 1.06, -0.441, 0.395), 
  y = c(1.06, 0.82, 3.76,3.17, 0.49, 2.67), 
  color = c("#FFFF00", "#FFA500", "#FFFF00", "#FFA500", "#FFFF00", "#FFA500"), 
  symbolSize = c(15, 15, 15, 15, 15, 15), 
  borderColor = c("#FF0000", "#0000FF", "#FF0000", "#0000FF", "#FF0000", "#0000FF"), 
  symbol = c("rect", "rect", "circle", "circle", "diamond", "path://M27,34.44 L29.87,29.47 L24.13,29.47 Z")
)

# 整理图例数据，转为ECharts要求的列表格式
legend_data <- the_data %>%
  distinct(group, color, borderColor, symbol) %>%
  arrange(group) %>%
  rowwise() %>%
  mutate(legend_item = list(
    list(
      name = group,
      icon = symbol,
      itemStyle = list(
        color = color,
        borderColor = borderColor,
        borderWidth = 2
      ),
      itemWidth = 15
    )
  )) %>%
  pull(legend_item)

# 生成图表
the_data %>%
  group_by(group) %>%
  e_chart(x) %>%
  e_scatter(y, itemStyle = list(borderWidth = 2)) %>%
  e_add_unnested("symbol", symbol) %>%
  e_add_unnested("symbolSize", symbolSize) %>%
  e_add_nested("itemStyle", color, borderColor) %>%
  e_legend(
    data = legend_data,
    itemWidth = 15
  )

关键修正说明 #

• 原来的e_legend全局itemStyle不支持数组赋值，无法给每个图例项单独设置边框颜色。必须通过legend.data逐个定义每个图例项的配置，包括icon、itemStyle（含color和borderColor）。
• 用rowwise()和mutate把每个group的图例配置转为ECharts接受的列表格式，再通过pull提取为列表数组传入e_legend(data = ...)。
• 移除了全局的e_color，因为每个图例项已经单独定义了颜色，避免冲突。

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