如何在 R 中使用 if/lessthan 语句在数据框中应用函数？

Question

我有一个如下所示的数据框：

df<- data.frame(
  X1 = seq(from = 7, to = 25, by = 2),
  X2 = c(7,  10 ,11, 12, 16, 17, 20, 24, 2, 30),
  X3 = 2:11
)

我想用以下逻辑替换列 X3

如果 X1 比 x2 少，则 X3=0

Answer 1

library(dplyr)
df %>% 
    mutate(X3 = ifelse(X1 < X2, 0, X3))

输出：

   X1 X2 X3
1   7  7  2
2   9 10  0
3  11 11  4
4  13 12  5
5  15 16  0
6  17 17  7
7  19 20  0
8  21 24  0
9  23  2 10
10 25 30  0

Answer 2

你可以做 -

df$X3[df$X1 < df$X2] <- 0
df

#   X1 X2 X3
#1   7  7  2
#2   9 10  0
#3  11 11  4
#4  13 12  5
#5  15 16  0
#6  17 17  7
#7  19 20  0
#8  21 24  0
#9  23  2 10
#10 25 30  0

Answer 3

df %>% mutate(X3 = ifelse(X1 < X2,0,X3))

Answer 4

我们可以用

df$X3 <- with(df, X3 * (X1 >= X2))