更好的方法从R中导入的csv绘制OHLC分钟数据

Question

我需要花费相当多的时间来完成这项工作，但我已使用以下功能为2014年2月28日的AAPL绘制了1分钟的OHLC图表。可以在此处下载csv文件https://drive.google.com/file/d/0B4xAKSwsHiEBRGlyMEE3V0ROckU/edit?usp=sharing

PlotAAPLData <- function()
{

  library(zoo)
  library(quantmod)

  z <- read.csv("AAPL 1 min 2-28-14.csv", stringsAsFactors = F)
  z <- read.zoo(z, header = TRUE, index = 1:2, tz = "", format = "%m/%d/%y %H:%M")
  z$Volume <- 0
  z$Adjusted <- 0
  z <- as.quantmod.OHLC(z)
  chartSeries(z, type = "bars", theme = chartTheme("white"))
}

我不得不强制使用quantmod来处理数据，但是，除了绘制OHLC之外，我不需要quantmod提供的任何功能，因此将其转换为该格式并不是必需的。 / p>

我有更好的方法吗？最具挑战性的部分是将数据转换为动物园格式，因为日期必须如此。现在看一下，它看起来并不复杂，但是还有一段时间了。

感谢。