r - 通过比较 2 个现有列然后删除后者在 R 中的数据框中创建新列

Question

我还有一个问题，在过去的几个小时里我一直试图解决这个问题，但没有成功。它涉及 R 中的一些数据集操作。假设我有以下示例数据集:

a,b,v,r
1,3,1,0
2,5,1,1
3,6,0,1
1,5,1,0
2,4,1,1
3,6,0,1

我需要通过以下规则比较列 [v,r] 的值来创建第三列(比如 m)。如果 v = 1，r = 0，则 m = 0。如果 v = 1，r = 1，则 m = 1，如果 v = 0，r = 1，则 m = 2。[v,r] 永远无法取值 (0,0)。

我想知道如何创建第三列并在一行中删除列 v、r。谢谢!

Answer 1

使用 data.table (1.8.8):

DT <- data.table(DF)
DT[, `:=`(m = (!v) * 1 + r, v = NULL, r=NULL)]
#    a b m
# 1: 1 3 0
# 2: 2 5 1
# 3: 3 6 2
# 4: 1 5 0
# 5: 2 4 1
# 6: 3 6 2