在R语言Highcharts中如何为柱状图正负值设置不同颜色

问题说明 #

现有如下数据框，希望将monthly_error为负值的柱状条设为红色，正值设为蓝色，当前使用的Highcharts代码未能实现该效果：

数据框代码 #

df <- structure(list(month_date = structure(c(13149, 13180, 13208, 13239, 13269, 13300, 13330, 13361, 13392, 13422, 13453, 13483), class = "Date"), monthly_error = c(-228, -445, -1213, -1937, -687, -1437, -1275, -293, -524, 242, -100, -359), pos_neg = c("negative", "negative", "negative", "negative", "negative", "negative", "negative", "negative", "negative", "positive", "negative", "negative")), row.names = c(NA, -12L), class = c("tbl_df", "tbl", "data.frame"))

当前使用的代码 #

highchart() %>% 
  hc_add_series(data = df ,"column",
                color = colors[1],
                hcaes(x = month_date, y = monthly_error, color = pos_neg),
                showInLegend = TRUE)

两种可行解决方案 #

方案一：利用现有pos_neg列映射颜色 #

此方法基于已有的分类列，通过颜色映射实现需求，同时保留图例：

# 定义颜色映射规则
color_map <- c(negative = "red", positive = "blue")

highchart() %>% 
  hc_add_series(
    data = df,
    type = "column",
    hcaes(x = month_date, y = monthly_error, color = pos_neg),
    showInLegend = TRUE,
    colorByPoint = TRUE  # 开启按点分配颜色
  ) %>%
  hc_colors(unname(color_map)) %>%  # 传入对应颜色
  hc_legend(
    labels = list(
      # 可选：格式化图例文字为首字母大写
      formatter = JS("function() { return this.name.charAt(0).toUpperCase() + this.name.slice(1); }")
    )
  )

关键说明：

• 移除原代码中的color = colors[1]，避免覆盖颜色映射
• colorByPoint = TRUE确保每个柱子根据pos_neg的值匹配对应颜色
• hc_colors传入的颜色顺序需与pos_neg的类别顺序一致（可通过unique(df$pos_neg)确认）

方案二：直接根据monthly_error值判断颜色 #

此方法无需依赖pos_neg列，通过JS回调函数直接根据数值正负设置颜色，同时手动添加图例：

highchart() %>% 
  hc_add_series(
    data = df,
    type = "column",
    hcaes(x = month_date, y = monthly_error),
    showInLegend = FALSE  # 关闭自动图例，后续手动添加
  ) %>%
  hc_plotOptions(
    column = list(
      # JS回调函数：负值设为红色，正值设为蓝色
      color = JS("function() { return this.y < 0 ? 'red' : 'blue'; }")
    )
  ) %>%
  # 手动添加自定义图例
  hc_legend(
    enabled = TRUE,
    items = list(
      list(name = "Negative", color = "red"),
      list(name = "Positive", color = "blue")
    )
  )

关键说明：

• 通过JS()嵌入JavaScript回调函数，直接判断每个柱子的y值并分配颜色
• 手动定义图例项，确保图例颜色与柱子颜色对应

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