使用echarts4r极坐标系统绘图报错，求原因与解决方法

问题根源分析 #

• after_scale是ggplot2专用语法，无法在dplyr的mutate中直接使用，属于场景误用。
• colorspace::lighten()的第一个参数要求传入颜色值，但你传入的是数值型的x，类型不匹配导致报错。
• 极坐标轴配置错误：e_radius_axis(x)写法不符合echarts4r语法，该函数用于配置半径轴属性，而非直接传入数据列。
• e_add_nested同时作用于bar和scatter两个系列，未明确指定目标系列时易引发冲突。

修正后的代码 #

library(echarts4r)
library(dplyr)
library(colorspace)

df <- data.frame(
  x = seq(50),  # 原数据y/z/w仅50行，统一x行数避免匹配错误
  y = rnorm(50, 10, 3),
  z = rnorm(50, 11, 2),
  w = rnorm(50, 9, 2)
)

# 基于x的位置生成基础颜色后调亮
df_color <- df |> 
  mutate(
    base_color = colorspace::rainbow_hcl(n())[x],  # 生成彩虹色系基础色
    color = colorspace::lighten(base_color, 0.4, space = "HLS")
  )

df_color |> 
  e_charts(x) |> 
  e_polar(show = FALSE) |> 
  e_angle_axis(data = x, show = FALSE) |>  # 角度轴绑定x数据
  e_radius_axis(show = FALSE) |>  # 配置半径轴隐藏
  e_bar(y, coord_system = "polar", barWidth = 1) |> 
  e_scatter(y, coord_system = "polar", symbol_size = 3) |> 
  e_theme("auritus") |> 
  e_tooltip(trigger = "item") |> 
  # 分别给两个系列指定自定义颜色
  e_add_nested("itemStyle", color, series_index = 0) |>  # 应用到bar系列
  e_add_nested("itemStyle", color, series_index = 1)     # 应用到scatter系列

关键修正点说明 #

1. 移除after_scale，改用colorspace::rainbow_hcl()生成合法基础色，再通过lighten()调亮，确保颜色参数符合要求。
2. 统一数据行数：原数据中x为500行，但y/z/w仅50行，调整x为50行避免后续数据不匹配。
3. 修正极坐标轴配置：e_angle_axis绑定x数据，e_radius_axis仅配置隐藏属性，贴合echarts4r语法。
4. 给e_add_nested指定series_index，明确颜色应用的目标系列，避免多系列冲突。

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