7

2つの目的のために、複数のフレームがあります。各フレームは、インデックス列と値列の2つの列で構成されています。

sz<-5;
frame_1<-data.frame(index=sort(sample(1:10,sz,replace=F)),value=rpois(sz,50));
frame_2<-data.frame(index=sort(sample(1:10,sz,replace=F)),value=rpois(sz,50));

frame_1：

 index value
  1    49
  6    62
  7    58
  8    30
 10    50

frame_2：

index value
  4    60
  5    64
  6    48
  7    46
  9    57

目標は、3番目のフレームframe_3を作成することです。このフレームのインデックスは、frame_1とframe_2のインデックスの和集合になります。

frame_3<-data.frame(index = sort(union(frame_1$index,frame_2$index)));

これは、value_1とvalue_2の2つの追加の列で構成されます。

frame_3$value_1はframe_1$valueから入力され、frame_3$value_2はframe_2$valueから入力されます。

これらは次のように入力する必要があります：frame_3：

index value_1 value_2
1      49       NA
4      49       60     # value_1 is filled through with previous value
5      49       64     # value_1 is filled through with previous value
6      62       48     
7      58       46   
8      30       46     # value_2 is filled through with previous value
9      30       57     # value_1 is filled through with previous value
10     50       57     # value_1 is filled through with previous value

数十万のレコードを処理しているので、効率的なソリューションを探しています

4

2 に答える 2

8

この問題は悲鳴を上げdata.tableます。ループを使用して、を使用して列を1つずつ再帰的に作成できますx[y, roll=TRUE]。

require(data.table)
dt1 <- data.table(frame_1)
dt2 <- data.table(frame_2)
setkey(dt1, index)
setkey(dt2, index)
dt3 <- data.table(index = sort(unique(c(dt1$index, dt2$index))))
> dt1[dt2[dt3, roll=TRUE], roll=TRUE]

#    index value value.1
# 1:     1    49      NA
# 2:     4    49      60
# 3:     5    49      64
# 4:     6    62      48
# 5:     7    58      46
# 6:     8    30      46
# 7:     9    30      57
# 8:    10    50      57
于 2013-02-01T11:41:30.990 に答える
4

data.framesがそれほど大きくない場合は、mergeと組み合わせて使用​​できますzoo::na.locf。

R> library(zoo)
R> frame_3 <- merge(frame_1, frame_2, by="index",
+                  all=TRUE, suffixes=paste(".",1:2,sep=""))
R > (frame_3 <- na.locf(frame_3))
  index value.1 value.2
1     1      49      NA
2     4      49      60
3     5      49      64
4     6      62      48
5     7      58      46
6     8      30      46
7     9      30      57
8    10      50      57

または、最初にzooオブジェクトを使用して、「値」列がすべて1つのタイプであると仮定します（マトリックスのように、zooオブジェクトにタイプを混在させることはできません）。

R> z1 <- zoo(frame_1$value, frame_1$index)
R> z2 <- zoo(frame_2$value, frame_2$index)
R> (z3 <- na.locf(merge(z1, z2)))
   z1 z2
1  49 NA
4  49 60
5  49 64
6  62 48
7  58 46
8  30 46
9  30 57
10 50 57
于 2013-02-01T14:00:23.080 に答える