使用R中的echarts的雷达图中的渐变颜色

install.packages("echarts")

library(echarts)

chart <- echarts()

chart$setOption(title = list(text = "雷达图"), legend = list(data = c("数据1", "数据2", "数据3")))

chart$addSeries(name = "数据1", type = "radar", data = list(list(value = c(80, 90, 70, 60, 50))))
chart$addSeries(name = "数据2", type = "radar", data = list(list(value = c(70, 80, 60, 50, 40))))
chart$addSeries(name = "数据3", type = "radar", data = list(list(value = c(60, 70, 50, 40, 30))))

chart$setOption(
  radar = list(
    indicator = list(
      list(name = "维度1", max = 100),
      list(name = "维度2", max = 100),
      list(name = "维度3", max = 100),
      list(name = "维度4", max = 100),
      list(name = "维度5", max = 100)
    ),
    shape = "circle",
    splitNumber = 5,
    name = list(
      textStyle = list(color = "#000")
    ),
    splitLine = list(
      lineStyle = list(color = list(list(offset = 0, color = "#ccc"), list(offset = 0.5, color = "#ddd"), list(offset = 1, color = "#eee")))
    ),
    splitArea = list(
      show = FALSE
    ),
    axisLine = list(
      lineStyle = list(color = "#bbb")
    )
  )
)

renderEcharts(chart)