echarts4r散点图自定义图例顺序问题求助

问题说明 #

使用echarts4r绘制散点图时，图例始终按字母顺序自动排序（比如示例数据中cats列顺序为catb、cata、catc，但输出图例却显示为cata、catb、catc），尝试e_charts(x, reorder = FALSE)后问题仍未解决，需要实现自定义图例顺序。

原代码存在语法错误（e_effect_scatter部分多了多余的逗号和括号），且未正确设置类别顺序。

解决方法 #

要自定义图例顺序，核心是将分类列转为因子类型并指定自定义水平，同时配合e_charts()的reorder = FALSE参数：

• 将cats列转换为因子，通过levels参数定义你想要的图例顺序
• 在e_charts()中设置reorder = FALSE，阻止自动排序
• 确保e_color()的颜色列表顺序和因子水平顺序对应，保证图例颜色与数据匹配

修改后的完整代码 #

output$plot1 <- renderEcharts4r({
  df <- data.frame(
    cats = c("catb", "cata", "catc"),
    x = c(1, .5, .75),
    y = c(.5,.2, 0)
  )

  p <- df %>%
    mutate(
      x = x - 0.5,
      y = y - 0.5,
      # 将cats转为因子，指定自定义顺序
      cats = factor(cats, levels = c("catb", "cata", "catc"))
    ) %>%
    group_by(cats) %>%
    # 设置reorder=FALSE阻止自动排序
    e_charts(reorder = FALSE) %>%
    # 修正语法错误，指定x、y轴字段
    e_effect_scatter(x, y) %>%
    e_text_style(color = 'white') %>%
    e_x_axis(
      name='', nameLocation='center', 
      axisLine = list(show = TRUE, lineStyle=list(color='#666', width=2)), 
      min = -0.5, max = 0.5,
      axisTick = list(show = FALSE), 
      axisLabel = list(show = FALSE), 
      splitLine=list(lineStyle=list(color='#333')), 
      margin = c(0.5, 0.1)
    ) %>%
    e_y_axis(
      name='', nameLocation='center', 
      axisLine = list(show = TRUE, lineStyle=list(color='#666', width=2)), 
      min = -0.5, max = 0.5,
      axisTick = list(show = FALSE), 
      axisLabel = list(show = FALSE), 
      splitLine=list(lineStyle=list(color='#333')), 
      margin = c(0.5, 0.1)
    ) %>%
    e_legend(textStyle = list(color = 'white')) %>%
    # 颜色顺序与因子levels一一对应
    e_color(color = c('#53a662', '#343ee8', '#eda65b')) 
  p
})

说明 #

• 因子的levels顺序就是最终图例的显示顺序，示例中设置为c("catb", "cata", "catc")，图例就会按该顺序展示
• e_charts(reorder = FALSE)确保echarts4r不会重新排序分组数据
• e_color的颜色列表要和levels顺序对应，避免颜色与分类不匹配

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