4

このコードをどこから始めればよいかわかりませんでした。グループ化変数に応じて異なる列を取る既存のデータ フレームに新しい変数をアタッチしたいと考えています。たとえば、列があるとします

    A  B  C  D  E  F
    1  2  3  6  11 12
    1  7  5  10 8  9
    2  19 2  4  5  6
    2  8  4  3  1  1

Aが1の場合は列B、Aが2の場合は列Dである新しい列「G」を添付したい

    A  B  C  D  E  F   G
    1  2  3  6  11 12  2 
    1  7  5  10 8  9   7
    2  19 2  4  5  6   4
    2  8  4  3  1  1   3

ありがとう

4

2 に答える 2

9

ここにいくつかのオプションがあります。

あなたのdata.frameが呼び出されたと仮定しますDF

基本[と索引付け

# make everything in G =  B
DF$G <- DF$B
# replace those cases where A==2 with D
DF$G[DF$A==2] <- DF$D[DT$A==2]

ifelse の使用

ifelseA は 1 または 2 のいずれかであるため、ステートメントは1 つだけ必要です。

DF$G <- ifelse(DF$A==2, DF$D, DF$B)

data.table の使用

メモリ効率とコーディングの優雅さから、data.table が好きです

library(data.table)
# create a data.table with A as the key

DT <- data.table(DF, key = 'A')
# where the key (A) == 1 ], then assign G = B
DT[.(1), G := B]
# and where the key (A) == 2, then assign G = D
DT[.(2), G := D]

美しくエレガント！

于 2013-02-07T05:46:49.683 に答える
5

あなたが「mydf」と呼ばれると仮定するとdata.frame、次を使用できますifelse：

within(mydf, {
  G <- ifelse(A == 1, B,
              ifelse(A == 2, D, 
                     0))
})
#   A  B C  D  E  F G
# 1 1  2 3  6 11 12 2
# 2 1  7 5 10  8  9 7
# 3 2 19 2  4  5  6 4
# 4 2  8 4  3  1  1 3
于 2013-02-07T05:40:57.340 に答える