R语言条件语句

(1) 一个分支

if(条件) {
  执行体
}

(2) 两个分支

if(条件) {
  执行体1
} else {
  执行体2
}

(3) 更多分支

if(条件1) {
  执行体1
} else if(条件2) {
  执行体2
} else {
  执行体n
}

(4) ifelse语句

stu_df <- data.frame(score = c(100,80,90,75,88,60,55,85,95,65),
                     stu_id = c(1:10))
library(dplyr)

# 嵌套ifelse
stu_df <- mutate(stu_df,grade = ifelse(score>=80,"优秀",ifelse(score>=60,"及格", "不及格")))

(5) switch语句

switch(expression, case1, case2, case3....)

x <- switch(1+2,"first", "second","third","fourth")
# 取第三个值
print(x)