检索股票价格

Question

我正在尝试使用Quantmod使用以下代码检索股票价格。 下面的代码使我可以检索需要的内容。 但是，当我导出CSV文件时，日期列（第一列）仅显示为数字序列。 需要明确的是，当我打开数据框时，在R中很好，但是在导出时会更改。

from.dat <- as.Date("01/01/12", format="%m/%d/%y") 
to.dat <- as.Date("12/31/17", format="%m/%d/%y") 
getSymbols("GOOG", src="yahoo", from = from.dat, to = to.dat)
write.csv(GOOG, file = "Googletest.csv", row.names = TRUE)

任何想法如何使代码包含日期？ -迈克

Answer 1

这似乎是与此副本的重复。 问题归结为您的文件是xts对象。 无论哪种方式，只需将最后一行替换为

write.csv(as.data.frame(GOOG), file = "Googletest.csv", row.names = TRUE)

你会没事的。