谢谢楼主分享。不过有个问题，如何把图示(legend)加上？

楼主真棒，我基于xts的data现在用楼主的代码在尝试，但是还是出现了双休日，节假日，停牌日的间隔，这个楼主通过前面三行代码究竟是怎么消除的呀？

把日期直接作为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")