如何旋转echarts4r雷达图的坐标轴标签？

可复现代码 #

library(echarts4r)

# 示例数据
data <- data.frame(
  Category = c("A", "B", "C", "D", "E"),
  Value = c(80, 50, 60, 70, 40)
)

# 创建基础雷达图
e_charts(data, Category) |> 
  e_radar(Value)

无效尝试代码 #

你尝试通过e_radar_opts设置axisLabel的rotate属性，但标签并未旋转：

e_charts(data, Category) |> 
  e_radar(Value) |> 
  e_radar_opts(
    axisLabel = list(
      rotate = 45
    )
  )

有效解决方案 #

雷达图的坐标轴标签（即分类名称）配置逻辑和普通图表不同，axisLabel不属于e_radar_opts的有效配置项，需要针对雷达图的indicator组件设置标签样式。以下是两种可行方法：

方法1：手动定义Indicator并设置旋转

直接构建包含标签样式的indicator列表，传入雷达图配置：

library(echarts4r)

data <- data.frame(
  Category = c("A", "B", "C", "D", "E"),
  Value = c(80, 50, 60, 70, 40)
)

# 为每个分类创建带旋转样式的indicator
indicators <- lapply(data$Category, function(cat) {
  list(
    name = cat,
    max = max(data$Value),  # 设置雷达图最大值
    textStyle = list(rotate = 45)  # 旋转45度
  )
})

# 生成带旋转标签的雷达图
e_charts() |> 
  e_radar(data, Value, indicator = indicators)

方法2：用e_append批量修改现有配置

如果不想手动定义indicator，可通过e_append直接修改已生成的图表配置，批量设置所有标签旋转：

e_charts(data, Category) |> 
  e_radar(Value) |> 
  e_append(
    radar = list(
      indicator = lapply(.data$x$opts$radar$indicator, function(ind) {
        ind$textStyle <- list(rotate = 45)
        ind
      })
    )
  )

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