用双重条件替换 R 中的数据框值

Question

我有这个数据框：

 A  B     C      D
 1  cola  light  0
 2  cola  light  0
 3  cola  lemon  0
 4  Pepsi lemon  0
 5  Pepsi lemon  0

我想对“B”和“C”做一个双重条件，并将结果放在D中，例如（伪代码）：

 if B=="cola" and C=="light"
  D=10 else D=20

在 R 中我使用 ifelse 来做，但我的问题是 B="Cola" 或 c="light" 总是 FALSE，我是 java 用户，比较字符串或字符更容易，我使用 (equals 或 compareTo )。但是在 R 中我不知道如何处理这种问题，我尝试使用 as.character 对其进行转换，但没有结果。我的条件仍然在重新调整 False。

感谢您的帮助

Answer 1

或者

 dat$D <- c(20,10)[(dat$B=="cola" & dat$C=="light")+1]
dat$D
#[1] 10 10 20 20 20

数据

dat <- structure(list(A = 1:5, B = c("cola", "cola", "cola", "Pepsi", 
"Pepsi"), C = c("light", "light", "lemon", "lemon", "lemon"), 
D = c(0L, 0L, 0L, 0L, 0L)), .Names = c("A", "B", "C", "D"
), class = "data.frame", row.names = c(NA, -5L))

更新

如果您的数据集列是：

 dat$B <- c( " cola ", " cola", "cola ", "Pepsi", "Pepsi")
 c(20,10)[(dat$B=="cola" & dat$C=="light")+1]
 #[1] 20 20 20 20 20

在这种情况下，

  c(20,10)[(grepl("cola", dat$B)&grepl("light", dat$C)) +1]
 #[1] 10 10 20 20 20

或者你可以使用str_trim

library(stringr)

dat[,2:3] <- lapply(dat[,2:3], str_trim) 
c(20,10)[(dat$B=="cola" & dat$C=="light")+1]
 #[1] 10 10 20 20 20

Answer 2

这应该可行：

df$D <- ifelse(df$B == "cola" & df$C == "light", 10, 20)

Answer 3

A <- 1:5
B <- c(rep("cola",3), rep("Pepsi", 2))
C <- c(rep("light",2), rep("lemon", 3))
D <- rep(0,5)

然后我的 data.frame 和你的一模一样

> data
  A     B     C D
1 1  cola light 0
2 2  cola light 0
3 3  cola lemon 0
4 4 Pepsi lemon 0
5 5 Pepsi lemon 0

根据@zx8754

> data$D <- ifelse(data$B=="cola" & data$C=="light", 10,20)
> data
  A     B     C  D
1 1  cola light 10
2 2  cola light 10
3 3  cola lemon 20
4 4 Pepsi lemon 20
5 5 Pepsi lemon 20