1

私は次のような単純なデータフレームを持っています

x = data.frame(id = seq(1,10),val = seq(1,10))
x
id val
1   1
2   2  
3   3
4   4
5   5
6   6
7   7
8   8
9   9
10  10

さらに4列追加したい。最初の2行は前の2行で、次の2行は次の2行です。最初の2行と最後の2行については、NAとして書き出す必要があります。reshapeパッケージのキャストを使用してこれを達成するにはどうすればよいですか？

最終的な出力は次のようになります

1 1 NA NA 2 3
2 2 NA 1 3 4
3 3 1 2 4 5
4 4 2 3 5 6

... 等々...

よろしくお願いします

4

2 に答える 2

2

これがでの解決sapplyです。まず、新しい列の相対的な変更を選択します。

lags <- c(-2, -1, 1, 2)

新しい列を作成します。

newcols <- sapply(lags,
                  function(l) {
                    tmp <- seq.int(nrow(x)) + l; 
                    x[replace(tmp, tmp < 1 | tmp > nrow(x), NA), "val"]})

一緒にバインド：

cbind(x, newcols)

結果：

   id val  1  2  3  4
1   1   1 NA NA  2  3
2   2   2 NA  1  3  4
3   3   3  1  2  4  5
4   4   4  2  3  5  6
5   5   5  3  4  6  7
6   6   6  4  5  7  8
7   7   7  5  6  8  9
8   8   8  6  7  9 10
9   9   9  7  8 10 NA
10 10  10  8  9 NA NA
于 2012-12-01T21:46:27.250 に答える
2

あなたが例を挙げた後、私は解決策を変更します

 mat <- cbind(dat,
 c(c(NA,NA),head(dat$id,-2)),
 c(c(NA),head(dat$val,-1)),
 c(tail(dat$id,-1),c(NA)),
 c(tail(dat$val,-2),c(NA,NA)))


colnames(mat) <- c('id','val','idp','valp','idn','valn')

   id val idp valp idn valn
1   1   1  NA   NA   2    3
2   2   2  NA    1   3    4
3   3   3   1    2   4    5
4   4   4   2    3   5    6
5   5   5   3    4   6    7
6   6   6   4    5   7    8
7   7   7   5    6   8    9
8   8   8   6    7   9   10
9   9   9   7    8  10   NA
10 10  10   8    9  NA   NA
于 2012-12-01T20:54:37.697 に答える