xts使用技巧

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)

class(HLKGPart)

在用xts包的时候，很多时候，时间变量是数据表的index。

head(HLKGPart)

因此，保险起见，我们需要对数据的index保存成一列。这样write_csv后就不需要担心时间不能录入了。 这里使用xts包中的函数index(HLKGPart)完成。

HLKGPart %>% as_tibble() %>% 
  mutate(date = index(HLKGPart)) %>% 
  select(date,everything()) %>% 
  head()