创建新的基于列的唯一值

create new column based unique values

假设我有一个简单的数据集

set.seed(123)
a <- sample(1:4, 30, replace = TRUE)
b <- sample(5:10, 30, replace = TRUE)
c <- sample(5:15, 30, replace = TRUE)
data <- data.frame(a,b,c)

现在我想创建一个新列 data$d,它将在 a=1|3 时采用 b 的值,在 c 时采用 c 的值a=2|4

像这样,假设列a只有c(1,2,3,4)中的值:

data$d = ifelse(data$a==1|data$a==3, data$b, data$c)