echarts4r：统一分组间Y轴范围的实现方法

要解决不同分组Y轴范围不一致的问题，核心思路是先计算整个数据集里height的全局极值，再将其设置为所有子图表的Y轴固定范围，具体修改后的代码如下：

library(tidyverse)
library(echarts4r)
data("starwars")

# 预处理数据并计算全局Y轴极值
starwars_processed <- starwars %>%
  group_by(sex, eye_color) %>%
  summarise(height = mean(height, na.rm = TRUE)) %>%
  ungroup()

# 获取height的全局最小、最大值
global_y_min <- min(starwars_processed$height, na.rm = TRUE)
global_y_max <- max(starwars_processed$height, na.rm = TRUE)

# 绘制带统一Y轴的时间轴柱状图
starwars_processed %>%
  group_by(sex) %>%
  e_charts(x = eye_color, timeline = TRUE) %>%
  e_bar(height, legend = FALSE) %>%
  # 设置固定Y轴范围
  e_y_axis(min = global_y_min, max = global_y_max)

补充说明 #

• 默认情况下echarts4r会为时间轴的每个子图表单独计算Y轴范围，导致分组间范围不统一；
• 若想让图表更美观，可以给全局最大值加一点缓冲，比如global_y_max <- max(starwars_processed$height, na.rm = TRUE) * 1.1，避免柱子顶到图表边缘。

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