如何为highcharter直方图按阈值上下设置条形颜色

你需要实现的是根据阈值（mpg=20）为直方图的条形分别设置颜色，在ggplot2中可以通过分组填充实现，但highcharter直接使用hist对象时无法直接为单个条形指定颜色，原因是默认将所有条形视为单个系列。以下是可行的实现方案：

解决方案代码 #

library(highcharter)
library(dplyr)

# 生成直方图统计数据（与ggplot一致的断点设置）
hist_result <- hist(mtcars$mpg, plot = FALSE, breaks = seq(0, 40, by = 5))

# 将直方图数据转换为结构化数据框，添加颜色逻辑
plot_data <- tibble(
  # 每个区间的起始值
  x = hist_result$breaks[-length(hist_result$breaks)],
  # 每个区间的计数
  y = hist_result$counts,
  # 根据阈值判断颜色：区间上限≤20用浅灰，否则用浅蓝
  color = ifelse(hist_result$breaks[-1] <= 20, "lightgrey", "lightblue")
)

# 绘制交互式直方图
highchart() %>%
  hc_add_series(
    data = plot_data,
    type = "column",
    hcaes(x = x, y = y),
    # 为每个条形指定颜色
    color = plot_data$color,
    # 调整柱子宽度匹配binwidth（5），避免重叠
    pointWidth = 4.8,
    name = "mpg 计数"
  ) %>%
  hc_xAxis(
    title = list(text = "mpg"),
    tickInterval = 5,
    min = 0,
    max = 40,
    labels = list(step = 1)
  ) %>%
  hc_yAxis(title = list(text = "计数")) %>%
  hc_theme(theme_smpl())

关键说明 #

1. 数据转换：将hist()生成的统计结果转换为数据框，明确每个区间的起始值、计数和对应颜色，这样能为每个条形单独指定样式。
2. 颜色赋值：通过ifelse根据区间上限与阈值（20）的关系，为每个区间分配对应颜色，与你ggplot代码中的分组逻辑一致。
3. 柱子宽度调整：设置pointWidth参数，使柱子宽度接近binwidth（5），还原直方图的视觉效果。

之前你尝试的hc_colors()方法无效，是因为hchart(hist_result)默认把所有条形归为单个数据系列，该方法只能为整个系列设置统一颜色，无法单独指定每个条形的颜色。

内容的提问来源于stack exchange，提问作者Natalie O'Shea