xts對象數據和data.frame對象數據似乎根本不匹配

Question

我正在獲取xts對象獲取一些任意數字並從無處拾取調整后的數據列。 我錯過了什么？

library(quantmod)

DIB <- read.table(text="Date Symbols Open High  Low Close  Volume
2015-07-05     DIB 6.81 6.87 6.80  6.83  587524
2015-07-06     DIB 6.75 6.86 6.74  6.82 1839035
2015-07-07     DIB 6.80 6.84 6.78  6.80 3206400
2015-07-08     DIB 6.84 6.85 6.75  6.85 5069482
2015-07-09     DIB 6.82 6.82 6.74  6.78 1644686
2015-07-12     DIB 6.92 6.94 6.80  6.80 2183164", header=TRUE, as.is=TRUE)
write.csv(DIB, "DIB.csv", row.names=FALSE)

getSymbols(Symbols="DIB", env=globalenv(),  return.class="xts", extension="DIB.csv")
# [1] "DIB"

head(DIB)
#            DIB.Open DIB.High DIB.Low DIB.Close DIB.Volume DIB.Adjusted
# 2010-06-07     2.02     2.04    2.02      2.04    1318700      1.39143
# 2010-06-08     2.05     2.07    2.02      2.03    1647000      1.38461
# 2010-06-09     2.05     2.06    2.02      2.02    1923600      1.37779
# 2010-06-10     2.03     2.03    2.00      2.00    2485100      1.36415
# 2010-06-14     2.05     2.06    2.03      2.05    1946800      1.39825
# 2010-06-15     2.02     2.03    2.00      2.02    4991600      1.37779

Answer 1

您需要在getSymbols調用中指定src="csv" ，否則默認情況下將調用getSymbols.yahoo 。

dib <- read.table(text="Date Symbols Open High  Low Close  Volume
2015-07-05     DIB 6.81 6.87 6.80  6.83  587524
2015-07-06     DIB 6.75 6.86 6.74  6.82 1839035
2015-07-07     DIB 6.80 6.84 6.78  6.80 3206400
2015-07-08     DIB 6.84 6.85 6.75  6.85 5069482
2015-07-09     DIB 6.82 6.82 6.74  6.78 1644686
2015-07-12     DIB 6.92 6.94 6.80  6.80 2183164", header=TRUE, as.is=TRUE)
# remove the "Symbols" column to avoid an all character xts object
write.csv(dib[,-2L], "DIB.csv", row.names=FALSE)

getSymbols("DIB", src="csv", col.names=c("Open","High","Low","Close","Volume"))
DIB
#            DIB.Open DIB.High DIB.Low DIB.Close DIB.Volume
# 2015-07-05     6.81     6.87    6.80      6.83     587524
# 2015-07-06     6.75     6.86    6.74      6.82    1839035
# 2015-07-07     6.80     6.84    6.78      6.80    3206400
# 2015-07-08     6.84     6.85    6.75      6.85    5069482
# 2015-07-09     6.82     6.82    6.74      6.78    1644686
# 2015-07-12     6.92     6.94    6.80      6.80    2183164
unlink("DIB.csv")