使用 highcharter 自定义箱线图的颜色

我在 highcharter 上有箱线图，我想自定义

• 填色
• 边框颜色

这是我的代码

df = data.frame(cbind(categ = rep(c('a','b','c','d')),value = rnorm(1000)))

hcboxplot(var = df$categ, x = as.numeric(df$value)) %>% 
  hc_chart(type = "column")  %>% 
  hc_colors(c("#203d7d","#a0a0ed","#203d7e","#a0a0ad")) 

hc_colors 仅当我输入时才有效var2代替var但随后箱线图就缩小了......

样式 API填色: https://api.highcharts.com/highcharts/series.boxplot.fillColor https://api.highcharts.com/highcharts/series.boxplot.fillColor

And for “边框颜色”: https://api.highcharts.com/highcharts/series.boxplot.color https://api.highcharts.com/highcharts/series.boxplot.color

如何设置样式和定义点的纯 JavaScript 示例：https://jsfiddle.net/BlackLabel/6tud3fgx https://jsfiddle.net/BlackLabel/6tud3fgx

和R代码：

library(highcharter)
df = data.frame(cbind(categ = rep(c('a','b','c','d', 'e')),value = rnorm(1000)))
hcboxplot(var = df$categ, x = as.numeric(df$value)) %>% 
  hc_chart(type = "column", events = list(
    load = JS("function() {
        var chart = this;
        chart.series[0].points[2].update({
          color: 'red'
        })
        chart.series[0].points[4].update({
          x: 4,
          low: 600,
          q1: 700,
          median: 800,
          q3: 900,
          high: 1000,
          color: 'orange'
        })
      }")
  ))  %>% 
  hc_plotOptions(boxplot = list(
    fillColor = '#F0F0E0',
    lineWidth = 2,
    medianColor = '#0C5DA5',
    medianWidth = 3,
    stemColor = '#A63400',
    stemDashStyle = 'dot',
    stemWidth = 1,
    whiskerColor = '#3D9200',
    whiskerLength = '20%',
    whiskerWidth = 3,
    color = 'black'
  ))  %>% 
  hc_colors(c("#203d7d","#a0a0ed","#203d7e","#a0a0ad"))