{r setup, include=FALSE} knitr::opts_chunk$set(eval = FALSE) devtools::install_github("joshuaulrich/xts")这是xts包的安装路径。 devtools::install_github("R-Finance/xtsExtra")这是xtsExtra包的安装路径。 我的系统是R 3.4，xts和xtsExtra包，因为对3.4的支持不好，因此一直安装不了。
library(zoo)
library(xts)
library(xtsExtra)
library(TTR)
library(quantmod)
library(RODBC)
library(fPortfolio)
这里装包挺麻烦了，花时间。
setSymbolLookup(HLKG=list(name='000036.sz',src='yahoo'))
getSymbols("HLKG")
chartSeries(HLKG)
HLKGPart<-HLKG["2014-11-1/2016-11-1"]
HLKGPart<-na.omit(HLKGPart)
<!-- 以上都是 @quantmod 和 @base 的函数。 -->
class(HLKGPart)
在用xts包的时候，很多时候，时间变量是数据表的index。
head(HLKGPart)
因此，保险起见，我们需要对数据的index保存成一列。这样write_csv后就不需要担心时间不能录入了。 这里使用xts包中的函数index(HLKGPart)完成。
HLKGPart %>% as_tibble() %>%
mutate(date = index(HLKGPart)) %>%
select(date,everything()) %>%
head()