在 csv 文件中保存下载股票代码数据（通过 quantmod）并使用原始 xts formate 读取的简单方法是什么？

Question

在 csv 文件中保存下载股票代码数据（通过 quantmod）并使用原始 xts formate 读取的简单方法是什么？

getSymbols("000001.SZ", src="yahoo",from="1990-10-01", to = Sys.Date(), auto.assign = TRUE )
write.csv(`000001.SZ`, "000001_yahoo.csv")
read.csv("000001_yahoo.csv")

但数据不会是 xts 格式。

流程错误是使用 read.zoo 更改数据

我的动物园<- read.csv("000001_yahoo.csv") PAYH <- read.zoo(my_zoo, format="%Y-%m-%d", sep=",", header=TRUE, index.column="Date")

read.zoo 错误（my_zoo，格式 =“%Y-%m-%d”，sep =“，”，header = TRUE，： 索引在数据行有 8106 个错误条目：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 ..

轻松保存和加载xts数据的功能是什么？

轻松保存和加载xts数据的功能是什么？

Answer 1

假设文件采用 csv 格式很重要，请像这样使用

write.zoo

和

read.csv.zoo

。注意

getSymbols

添加了一些不需要的xts属性，所以zap它们以确保原始对象和读入对象相同。

library(quantmod) # also loads xts and zoo
getSymbols("000001.SZ", from = "1990-10-01")
xtsAttributes(`000001.SZ`) <- NULL

write.zoo(`000001.SZ`, "000001_yahoo.csv", sep = ",")

z <- read.csv.zoo("000001_yahoo.csv", check.names = FALSE)
x <- as.xts(z)

identical(`000001.SZ`, x)
## [1] TRUE