一、流程控制

R语言中，常用的流程控制函数有：repeat、while、for、if…else、switch。

1、repeat循环

repeat函数经常与 break 语句或 next 语句一起使用。

repeat ({
  x <- sample(c(1:7),1)
  message("x = ", x, ",你好吗？")
  if (x == 4){
     message("x = ", x, ",继续执行下一次循环！")
     next
  }
  if (x == 7){
     message("x = ", x, ",跳出循环！")
     break
  }
})

2、while循环

x <- sample(c(1:10),1)
while (x != 4){
x <- sample(c(1:10),1)
message("x= ", x, ",你好，关关")
}

3、for循环

for 循环通过一个迭代器和一个向量参数执行程序代码，它适用于明确代码需要执行次数的情形。

a <- c(1:10)
for (x in a){
  message("x= ", x, ",你好，悦悦！")
}

4、if…else语句

注意，else 必须与 if 语句的右侧大括号在同一行，否则会报错。

x <- 10
if (x > 10){
  print("X大于10")
} else{
  print("X小于等于10")
}

if...else 可以反复使用：

x <- 10
if (x > 10){
  print("Hello")
} else if(x == 10){
  print("你好！")
} else {
  print ("Bonjour!")
}

if ... else可以合起来一起使用：

x <- 10
y <- ifelse(x > 10, "HELLO", "你好！")
print(x)
print(y)

5、switch语句

switch语句是为了替代会使用很多 if...else 语句的场景，以提高代码的可读性。

x <- "f"
switch (x, beta = "beta分布", gama = "gama分布", f = "f分布", "其它")