library(officer)
dat <- data.frame(
date = as.Date("2024-01-01") + 0:4,
open = c(44, 25, 38, 50, 34),
high = c(55, 57, 57, 58, 58),
low = c(11, 12, 13, 11, 25),
close = c(32, 35, 34, 35, 43)
)
# HLC chart
stock_hlc <- ms_stockchart(
data = dat, x = "date",
high = "high", low = "low", close = "close"
)
stock_hlc
# OHLC chart (candlestick)
stock_ohlc <- ms_stockchart(
data = dat, x = "date",
open = "open", high = "high",
low = "low", close = "close"
)
stock_ohlc
Run the code above in your browser using DataLab