如何在echarts4r中为多系列图表设置itemStyle样式？

问题出在e_add_nested默认只对最后一个添加的系列生效，所以你的柱状图系列没有应用自定义颜色规则。要让两个系列都使用相同的条件颜色，有两种可行方案：

方案一：为每个系列单独添加嵌套样式 #

在添加每个系列（柱状图、散点图）之后，分别调用e_add_nested绑定颜色规则：

library(echarts4r)
library(dplyr)

set.seed(123) # 设置随机种子保证结果可复现
tibble(
  year = as.character(sample(1950:2020, 100, replace = T)),
  y = rnorm(100, 10, 3)
) |> 
  head(10) |> 
  mutate(
    color = if_else(y > 9, "red", "green")
  ) |> 
  e_charts(year) |> 
  e_bar(y) |> 
  e_add_nested("itemStyle", color) # 给柱状图系列绑定颜色
  e_scatter(y) |> 
  e_add_nested("itemStyle", color) # 给散点图系列绑定颜色

方案二：使用e_apply批量设置所有系列 #

如果有多个系列需要统一设置，用e_apply可以高效遍历所有系列，一次性应用样式规则：

library(echarts4r)
library(dplyr)

set.seed(123)
tibble(
  year = as.character(sample(1950:2020, 100, replace = T)),
  y = rnorm(100, 10, 3)
) |> 
  head(10) |> 
  mutate(
    color = if_else(y > 9, "red", "green")
  ) |> 
  e_charts(year) |> 
  e_bar(y) |> 
  e_scatter(y) |> 
  e_apply("series", function(series) {
    series$itemStyle$color = series$data[[3]] # 取data中的第三列（color列）作为颜色
    series
  })

原理说明 #

• e_add_nested的作用范围是当前最后一个添加的系列，因此需要在每个系列创建后立即调用。
• e_apply可以遍历指定类型的组件（这里是所有series），通过自定义函数修改每个系列的配置，适合批量处理多系列场景。

内容的提问来源于stack exchange，提问作者Jorge Hernández