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")