3

次の例を使用しています。

Original     Modified     New_Orig     New
1            2            1            0
2            4            1            0
3            6            4            0
4            8            5            0
5            10           5            0
6            12           5            0
7            14           5            0
8            16           5            0
9            18           9            0
10           20           10           0

Newの値を の値に置き換えたいの値と一致するModified場合。New_OrigOriginal

理想的Newには次のようになります。

New
2  
2
8
10
10
10
10
10
18
20

どんな助けでも大歓迎です。

敬具、

4

3 に答える 3

5

ここでは、新しい列Newが作成されます。

within(dat, New <- Modified*(New_Orig == Original))

   Original Modified New_Orig New
1         1        2        1   2
2         2        4        1   0
3         3        6        4   0
4         4        8        5   0
5         5       10        5  10
6         6       12        5   0
7         7       14        5   0
8         8       16        5   0
9         9       18        9  18
10       10       20       10  20

アップデート

値を一致させ、次から適切な値を選択しますModified。

within(dat, New <- Modified[match(New_Orig, Original)])

   Original Modified New_Orig New
1         1        2        1   2
2         2        4        1   2
3         3        6        4   8
4         4        8        5  10
5         5       10        5  10
6         6       12        5  10
7         7       14        5  10
8         8       16        5  10
9         9       18        9  18
10       10       20       10  20
于 2013-01-09T10:39:06.363 に答える
2

@rcs は私が与える答えを正確に与えたので、すべてゼロとして初期化するのではなく、この「新しい」列を作成する別の方法を紹介したいと思いました。

data <- data.frame(Original = 1:10,
                   Modified = seq(2, 20, 2),
                   New_Orig = c(1, 1, 4, 5, 5, 
                                5, 5, 5, 9, 10))
within(data, {
    New <- ifelse(Original == New_Orig, Modified, 0)
})
#    Original Modified New_Orig New
# 1         1        2        1   2
# 2         2        4        1   0
# 3         3        6        4   0
# 4         4        8        5   0
# 5         5       10        5  10
# 6         6       12        5   0
# 7         7       14        5   0
# 8         8       16        5   0
# 9         9       18        9  18
# 10       10       20       10  20
于 2013-01-09T10:31:17.207 に答える
1

次のことを試してください。

v <- dat$New_Orig==dat$Original # this gives a logical vector,
                                # you could also use which(dat$New_Orig==dat$Original)
                                # to obtain the indices
dat[v, "New"] <- dat[v, "Modified"]
于 2013-01-09T10:26:57.403 に答える