Rblpapi，unlist data.frame动物园xts

使用Rblpapi，我得到了一个data.frame中的3个索引的stockdata与几个列表。然后，我想要得到它在动物园或最好xts格式。但是，我首先必须正确取消。Rblpapi，unlist data.frame动物园xts

由于不是每个人都有权访问Rblpapi，因此无法复制，请查看str输出并提示如何取消列表。

任何潜在客户或帮助表示感谢！

library(Rblpapi) 
library(zoo) 
library(xts) 

str(res) 



List of 3 
$ :'data.frame': 9 obs. of 2 variables: 
    ..$ date : Date[1:9], format: ... 
    ..$ PX_LAST: num [1:9] 201 194 188 190 190 ... 
$ :'data.frame': 9 obs. of 2 variables: 
    ..$ date : Date[1:9], format: ... 
    ..$ PX_LAST: num [1:9] 4891 4686 4477 4568 4517 ... 
$ :'data.frame': 9 obs. of 2 variables: 
    ..$ date : Date[1:9], format: ... 
    ..$ PX_LAST: num [1:9] 19.3 22.5 26.1 22.5 22 ... 

head(res) 
[[1]] 
     date PX_LAST 
1 2016-01-05 201.3600 
2 2016-01-12 193.6608 
3 2016-01-19 188.0600 
4 2016-01-26 190.2000 
5 2016-02-02 190.1600 
6 2016-02-09 185.4300 
7 2016-02-16 189.7800 
8 2016-02-23 192.3200 
9 2016-03-01 197.9700 

[[2]] 
     date PX_LAST 
1 2016-01-05 4891.430 
2 2016-01-12 4685.919 
3 2016-01-19 4476.950 
4 2016-01-26 4567.673 
5 2016-02-02 4516.946 
6 2016-02-09 4268.763 
7 2016-02-16 4435.956 
8 2016-02-23 4503.583 
9 2016-03-01 4680.479 

[[3]] 
     date PX_LAST 
1 2016-01-05 19.34 
2 2016-01-12 22.47 
3 2016-01-19 26.05 
4 2016-01-26 22.50 
5 2016-02-02 21.98 
6 2016-02-09 26.54 
7 2016-02-16 24.11 
8 2016-02-23 20.98 
9 2016-03-01 17.85

不公开得到一个data.frame /动物园/ XTS与（日期，pricedata1，pricedata2，pricedata3）对象

df <- data.frame(matrix(unlist(res), nrow=9)) 

head(df) 

    X1  X2 X3  X4 X5 X6 
1 16805 201.36 16805 4891.43 16805 19.34 
2 16812 193.6608 16812 4685.919 16812 22.47 
3 16819 188.06 16819 4476.95 16819 26.05 
4 16826 190.2 16826 4567.673 16826 22.5 
5 16833 190.16 16833 4516.946 16833 21.98 
6 16840 185.43 16840 4268.763 16840 26.54

然而，这不是我想要的。列X3和X5不应该在那里。加上日期格式不好。因此，获得对动物园或XTS不起作用：

price<-read.zoo(df, format="%Y%m%d") 

df$date <-as.Date(as.character(df$date),format="%Y%m%d") 

x<-xts(df$date, df$px_last)

错误read.zoo（DF，格式= “％Y％米％d”）：索引具有数据行坏条目：1 2 3 4 5 6 7 8 9

错误XTS（DF $日期，DF $ px_last）：order.by需要适当的时间基于对象

来源

2016-03-01 M_Sunny

相信你需要的是加入每个列表元素由日期。

但是，为此，首先您需要将所有这些变量PX_LAST重命名为独特的东西。例如：

require(data.table) 
for (i in 1:length(res)) { 
    setnames(res[[i]],"PX_LAST",paste("PX_LAST",i,sep="_")) 
}

然后你就可以加入，无论是两两merge ING，或使用plyr::join_all功能：

require(plyr) 
df <- join_all(res, by="date", type="full") 

#   date PX_LAST_1 PX_LAST_2 PX_LAST_3 
# 1 2016-01-05 201.3600 4891.430  19.34 
# 2 2016-01-12 193.6608 4685.919  22.47 
# 3 2016-01-19 188.0600 4476.950  26.05 
# 4 2016-01-26 190.2000 4567.673  22.50 
# 5 2016-02-02 190.1600 4516.946  21.98 
# 6 2016-02-09 185.4300 4268.763  26.54 
# 7 2016-02-16 189.7800 4435.956  24.11 
# 8 2016-02-23 192.3200 4503.583  20.98 
# 9 2016-03-01 197.9700 4680.479  17.85

然后最后你可以使用

include(zoo) 
price<-read.zoo(df) 

include(xts) 
xts(df, df$date)

来源

2016-03-02 11:25:49

感谢这并获得成功！ –

Rblpapi，unlist data.frame动物园xts

回答

相关问题