Candlestick color

e_candle.R

library(echarts4r)
library(quantmod)

getSymbols("GS") #Goldman Sachs
GS <- as.data.frame(GS)
GS$date <- row.names(GS)

# https://echarts.apache.org/en/option.html#series-candlestick.itemStyle.color
GS %>% 
  e_charts(date) %>% 
  e_candle(
    GS.Open, GS.Close, GS.Low, GS.High, 
    name = "Goldman Sachs",
    itemStyle = list(
      color = "blue", # bull
      color0 = "black", # bear
      borderColor = "blue",
      borderColor0 = "black"
    )
   )