使用chartSeries，candleChart或barChart创建带R的日内图表？

Question

可以使用chartSeries，candleChart或barChart在R中创建日内图表吗？

chartSeries，candleChart和barChart是R的quantmod包的一部分。

Answer 1

首先，我们需要一些日内交易数据示例，您可以从a variety of sites免费获得，包括Google's Undocumented Finance API。

获取一些示例数据（每小时间隔）

query_addr <- 'https://www.google.com/finance/getprices'
stock_symb <- 'GOOG'
stock_exch <- 'NASD'
intvl_size <- 60*60 # 1 hr interval (in seconds) -- use 24*this for daily
period_len <- '90d'
output_fmt <- 'd,o,h,l,c,v' # date, open, high, low, close, volume

library(httr)
resp <- 
  POST(url = query_addr, 
       query = list(q = stock_symb, 
                    x = stock_exch, 
                    i = intvl_size, 
                    p = period_len,
                    f = output_fmt) )

df <- 
  read.csv(text = content(resp),
           skip = 7,
           header = FALSE,
           stringsAsFactors = FALSE)

# we need a function to munge the date convention used by google finance API
g_fin_date <- function(dstr, intvl_size){
  unix_dates <- numeric(length(dstr))
  date_is_unix <- grepl('^a',dstr)
  unix_dates[date_is_unix] <- as.numeric(sub('^a','',dstr[date_is_unix]))
  for(i in 2L:length(dstr)){
    if(!date_is_unix[i]){
      unix_dates[i] <- unix_dates[i-1] + intvl_size
    }
  }
  return(as.POSIXct(unix_dates,origin="1970-01-01",tz="GMT" ))
}

# see header of resp text for column order
names(df) <- c('close_date','Close','High','Low','Open','Volume') 
df[,'close_date'] <- g_fin_date(df[,'close_date'], intvl_size=intvl_size)

这里我刚刚选择了每小时开盘价（即开始价格），高价，低价，收盘价（即收盘价） - 但如果您愿意，您可以指定更精细的细节级别 - 它仍会累积到更大的位置期间quantmod::to.period()。

制作xts

一旦我们有了数据框（例如您可能从API或平面文件中获取），那么您需要将数据转换为xts。请注意，对于xts，时间戳必须是行名（并且可以从列中删除）。

library(xts)
rownames(df) <- df$close_date
df$close_date <- NULL

使用xts

转换为OHLC（开放，高，低，关闭）

这是简单的汇总 - 请参阅?to.period

GOOG <- to.hourly(as.xts(df)) # for daily use to.daily(as.xts(df))

更多可用的图表示例at quantmod.com。

使用quantmod

创建一些图表

quantmod已经内置了很多图表，包括您提到的图表。

library(quantmod)
chartSeries(GOOG)
barChart(GOOG, theme='white.mono',bar.type='hlc')
candleChart(GOOG,multi.col=TRUE,theme='white') 

享受您的图表

Answer 2

我：“我会在R中为100 Alex拍摄日内时间序列图表！” ：D

Alex：“quantmod函数chartSeries，candleChart和barChart可以使用这种广受欢迎的财务时间序列格式来创建{{1}中的日内图表}“

我：“什么是R对象，按数据/时间戳编制索引，包含开盘价，最高价，最低价和收盘价？

亚历克斯：“你是对的！”