如何在echarts4r的e_bar函数中动态传递列名？

问题背景 #

现有按大洲统计年份数据的tibble结构如下：

# A tibble: 4 x 4
  continent year_2020 year_2021 year_2022
  <chr>         <dbl>     <dbl>     <dbl>
1 Asia             35       177       350
2 Europe           45        47        84
3 Australia        26        46        58
4 Africa           15        20        25

原通过硬编码列名生成柱状图：

stack %>%
  e_charts(continent) %>%
  e_bar(year_2020) %>%
  e_bar(year_2021) %>%
  e_bar(year_2022)

需求：年份列会持续新增，需动态传递列名，且每个大洲最多显示最新3个年份的柱状图。尝试用sym()传递列名时触发报错：

Error in chr_as_locations():
! Can't subset columns that don't exist.
x Column sym(year_val1) doesn't exist.

解决方案 #

核心问题说明 #

之前报错是因为未用!!（强制求值运算符）解析sym()生成的符号对象，导致echarts4r将sym(year_val1)当作字面列名查找，而非解析为实际的年份列。

方法1：用purrr::reduce动态叠加e_bar层 #

适合需要灵活控制列顺序或筛选逻辑的场景：

library(purrr)
library(echarts4r)

# 1. 提取所有年份列，筛选最新3个（按列名排序后取最后3个）
year_cols <- setdiff(names(stack), "continent") %>%
  sort() %>%
  tail(3)

# 2. 动态生成图表
stack %>%
  e_charts(continent) %>%
  reduce(year_cols, ~ .x %>% e_bar(!!sym(.y)), .init = .)

方法2：用!!!展开符号列表 #

更简洁的写法，直接将列名转为符号后批量传入e_bar：

year_syms <- setdiff(names(stack), "continent") %>%
  sort() %>%
  tail(3) %>%
  purrr::map(sym)

stack %>%
  e_charts(continent) %>%
  e_bar(!!!year_syms)

方法3：基础R循环实现 #

若不想依赖purrr，可使用基础R循环：

year_cols <- setdiff(names(stack), "continent") %>%
  sort() %>%
  tail(3)

# 初始化图表
p <- stack %>% e_charts(continent)

# 循环添加柱状图层
for(col in year_cols) {
  p <- p %>% e_bar(!!sym(col))
}

# 渲染图表
p

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