创建两个数据帧

我有两个数据帧面板 - 一个由日期排列的股票收盘价格（行）和股票代码（列）：创建两个数据帧

> head(data.stocks) 
     date  A AAPL ABAT AB ABV 
1 2010-10-04 32.59 278.64 3.65 26.42 125.89 
2 2010-10-05 33.04 288.94 3.66 27.10 129.05 
3 2010-10-06 32.67 289.19 3.59 26.99 129.90 
4 2010-10-07 33.20 289.22 3.66 27.04 129.94 
5 2010-10-08 33.80 294.07 3.84 26.76 132.66 
6 2010-10-11 33.75 295.36 3.87 26.95 133.37

其他数据帧未平仓合约（ OI）布置成通过一排每股票代码每日期：

> head(data.oi) 
     date symbol oi close 
1 2010-10-04  A 6  0 
2 2010-10-04  AA 104  0 
3 2010-10-04 AAPL 940  0 
4 2010-10-04  AB 0  0 
5 2010-10-04 ABAT 0  0 
6 2010-10-04 ABB 0  0

我想另一列，使得我最终每日期一个股票代号添加到该第二数据帧与“面板”的数据帧与oi和收盘价格排。

我想这个循环会的工作，但我得到了以下错误：

> for (i in seq(length(data.oi$date))) { 
+ row <- which(data.stocks$date == data.oi$date[i]) 
+ col <- which(colnames(data.stocks) == data.oi$symbol[i]) 
+ data.oi$close[i] <- data.stocks[row, col] 
+ } 
Error in data.oi$close[i] <- data.stocks[row, col] : 
    replacement has length zero

FWIW，它存储在data.oi的第一个值，那么失败：

> head(data.oi) 
     date symbol oi close 
1 2010-10-04  A 6 32.59 
2 2010-10-04  AA 104 0.00 
3 2010-10-04 AAPL 940 0.00 
4 2010-10-04  AB 0 0.00 
5 2010-10-04 ABAT 0 0.00 
6 2010-10-04 ABB 0 0.00

谢谢！我觉得reshape或aggregate可以做到这一点，但我不知道如何合并这两个。

来源

2010-10-27 Richard Herron

融化在reshape2包和合并将是有益的：

library(reshape2) 
merge(subset(data.oi,select=-close), 
     melt(d,id.vars="date",variable.name="symbol",value.name="close"))

来源

2010-10-27 23:37:59 kohske

谢谢！而且我为我疯狂的循环添加了“close”，所以它更容易！ Melt是我最好的朋友。 – 2010-10-28 11:35:59

创建两个数据帧

回答

相关问题