将刻度数据转换为蜡烛图

Question

我有每分钟的时间序列数据。我想转换成5分钟的蜡烛图。分享输入

library(lubridate)
dft <- data.frame(date <- ymd_hms("2011-01-02 09:30:00") + minutes(1:100),rnorm(100, 4,2))

Answer 1

我对蜡烛图并不熟悉，所以我每隔5分钟从数据中取出一次，然后转换为xts对象。

# assign times to rownames
set.seed(321)
dft <- data.frame(val=rnorm(100, 4, 2))
rownames(dft) <- ymd_hms("2011-01-02 09:30:00") + minutes(1:100)

# every 5th minute
dft5 <- dft[seq(1, nrow(dft), by=5), , drop=F]

# candle chart
require(quantmod)
candleChart(as.xts(dft5))