当需要满足多个条件时，使用case_when创建新列

new_column <- case_when(
  condition1 ~ value1,
  condition2 ~ value2,
  condition3 ~ value3,
  ...
  TRUE ~ default_value
)

library(dplyr)

# 创建一个示例数据框
df <- data.frame(
  score = c(80, 90, 70, 60, 85)
)

# 使用case_when函数创建新列grade，根据分数划分等级
df <- df %>%
  mutate(
    grade = case_when(
      score >= 90 ~ "A",
      score >= 80 ~ "B",
      score >= 70 ~ "C",
      score >= 60 ~ "D",
      TRUE ~ "F"
    )
  )

# 打印结果
print(df)