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

Answer 2

这不是一行（所以不像@Arun的data.table解决方案那样活泼），但这是一种使用withinand的方法ifelse：

within(mydf, {
  m <- ifelse(v == 1 & r == 0, 0, ifelse(v == 1 & r == 1, 1, 2))
  rm(v, r)
})
#   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

Answer 3

transform从base包中使用

DF <- read.csv(textConnection("a,b,v,r\n1,3,1,0\n2,5,1,1\n3,6,0,1\n1,5,1,0\n2,4,1,1\n3,6,0,1"), header = TRUE)

transform(DF, 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