用ggplot2画的常用K线图

cheetahfly 发表于 2021-3-1 07:44
把日期直接作为1/2/3/4....这样的序列

我昨天尝试了一下吧日期从xts data的index变成了factor class，隔断消除了，但是均线又打不上去了以下是在楼主代码的基础上修改的代码：（m_data就是xts data）
date_fac <- as.factor(index(m_data))
candle_chart <- ggplot(aes(x = date_fac),data = m_data) +
  geom_boxplot(aes(lower = pmin(close, open),
                   middle = close,
                   upper = pmax(close, open),
                   ymin = low,
                   ymax = high,
                   group = Index,
                   fill = open > close),
               stat = "identity",
               show.legend = FALSE)
  scale_x_discrete(breaks=as.character(index(m_data)),labels = format(index(m_data), "%m-%d"))
  #geom_line(aes(y = SMA(close, n = 5, align ="right")), color = "blue3") +
  #geom_line(aes(y = SMA(close, n = 10, align ="right")), color = "red")