如何为成交量指标设置颜色？K线已实现，成交量未生效

你需要先给成交量数据绑定涨跌对应的颜色规则，再传递给highcharter渲染，以下是修改后的完整代码：

library(quantmod)
library(tidyverse)
library(highcharter)

# 获取AAPL行情数据
aapl <- quantmod::getSymbols("AAPL",
                             src = "yahoo",
                             from = "2020-01-01",
                             auto.assign = FALSE
)

# 转换数据格式，添加涨跌标记和对应颜色
aapl_df <- aapl %>%
  as.data.frame() %>%
  rownames_to_column(var = "date") %>%
  mutate(
    date = as.Date(date),
    # 判断K线涨跌：收盘价>开盘价为上涨
    direction = ifelse(AAPL.Close > AAPL.Open, "up", "down"),
    # 绑定对应颜色：上涨绿，下跌红
    volume_color = ifelse(direction == "up", "lightgreen", "red")
  )

# 绘制带涨跌色的K线和成交量
highchart(type = "stock") %>%
  hc_title(text = "AAPL") %>%
  # 添加K线图
  hc_add_series(aapl, yAxis = 0, showInLegend = FALSE) %>%
  hc_add_yAxis(nid = 1L, title = list(text = "Prices"), relative = 2) %>%
  # 添加带颜色的成交量柱状图
  hc_add_series(
    data = aapl_df,
    type = "column",
    x = ~date,
    y = ~AAPL.Volume,
    color = ~volume_color,
    yAxis = 1,
    showInLegend = FALSE
  ) %>%
  hc_add_yAxis(nid = 2L, title = list(text = "Volume"), relative = 1) %>%
  # K线颜色配置
  hc_plotOptions(
    candlestick = list(
      color = 'red',
      lineColor = 'red',
      upColor = 'lightgreen',
      upLineColor = 'green'
    )
  )

修改说明 #

1. 数据预处理：把xts格式的行情数据转为数据框，新增涨跌判断和颜色映射列，让每个成交量数据点都绑定对应颜色
2. 成交量系列配置：添加成交量时传入处理后的数据集，通过color = ~volume_color直接绑定颜色规则
3. 简化K线配置：移除重复的颜色参数，让K线颜色逻辑更清晰

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