ifelse函数在R中的用法

ifelse(test, yes, no)

# 创建一个向量
x <- c(1, 2, 3, 4, 5)

# 判断向量中的元素是否大于 3
result <- ifelse(x > 3, "大于3", "小于等于3")
print(result)
# 输出: [1] "小于等于3" "小于等于3" "小于等于3" "大于3"  "大于3"

# 创建一个向量
y <- c(1, 2, 3, 4, 5)

# 使用嵌套 ifelse 进行多条件判断
result <- ifelse(y < 2, "小于2", ifelse(y < 4, "2到4之间", "大于等于4"))
print(result)
# 输出: [1] "小于2"     "2到4之间"  "2到4之间"  "大于等于4" "大于等于4"

# 示例：确保类型一致
x <- c(1, 2, 3, 4, 5)
result <- ifelse(x > 3, TRUE, FALSE)
print(result)
# 输出: [1] FALSE FALSE FALSE  TRUE  TRUE

# 使用 dplyr 包中的 case_when 函数
library(dplyr)

df <- data.frame(x = c(1, 2, 3, 4, 5))
df <- df %>%
  mutate(result = case_when(
    x < 2 ~ "小于2",
    x < 4 ~ "2到4之间",
    TRUE ~ "大于等于4"
  ))
print(df)
# 输出:
#   x      result
# 1 1      小于2
# 2 2  2到4之间
# 3 3  2到4之间
# 4 4 大于等于4
# 5 5 大于等于4