所谓判断结构，本质上就是先把规则说清楚。

程序员需要明确一个或多个待评估、待测试的条件。条件成立时，执行对应的语句，这是必不可少的一部分；如果条件不成立，还可以按需补充另一组要执行的语句。

判断结构的一般形式

下面是大多数编程语言中典型的判断结构的一般形式：

R 语言中的判断语句类型

R 语言提供了以下类型的判断语句：

• if 语句
• if...else 语句
• switch 语句

if 语句

一个 if 语句 由一个布尔表达式后跟一个或多个语句组成。

语法格式如下：

if(boolean_expression) {
    // 布尔表达式为真将执行的语句
}

如果布尔表达式 boolean_expression 为 ture，执行这里面的代码。

如果为 false，则不执行。

实例

x <- 50L
if(is.integer(x)) {
   print("X 是一个整数")
}

执行以上代码，输出结果为：

[1] "X 是一个整数"

if...else 语句

一个 if 语句 后可跟一个可选的 else 语句。

else 语句在布尔表达式为假时执行。

语法格式如下：

if(boolean_expression) {
    // 如果布尔表达式为真将执行的语句
} else {
    // 如果布尔表达式为假将执行的语句
}

判断逻辑其实很直接。

当布尔表达式 boolean_expression 的结果为 true 时，程序就会进入 if 代码块执行；如果结果是 false，那么执行的就是 else 代码块里的内容。

实例

x <- c("google","runoob","taobao")
if("runoob" %in% x) {
   print("包含 runoob")
} else {
   print("不包含 runoob")
}

执行以上代码，输出结果为：

[1] "包含 runoob"

多个条件判断

如果有多个条件判断，可以使用 if...else if...else：

if(boolean_expression 1) {
    // 如果布尔表达式 boolean_expression 1 为真将执行的语句
} else if( boolean_expression 2) {
    // 如果布尔表达式 boolean_expression 2 为真将执行的语句
} else if( boolean_expression 3) {
    // 如果布尔表达式 boolean_expression 3 为真将执行的语句
} else {
    // 以上所有的布尔表达式都为 false 时执行
}

实例

x <- c("google","runoob","taobao")
if("weibo" %in% x) {
   print("第一个 if 包含 weibo")
} else if ("runoob" %in% x) {
   print("第二个 if 包含 runoob")
} else {
   print("没有找到")
}

执行以上代码，输出结果为：

[1] "第二个 if 包含 runoob"

switch 语句

一个 switch 语句允许测试一个变量等于多个值时的情况。

每个值称为一个 case。

语法格式如下：

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

switch 语句必须遵循下面的规则：

• switch 语句中的 expression 是一个常量表达式，可以是整数或字符串，如果是整数则返回对应的 case 位置值，如果整数不在位置的范围内则返回 NULL。
• 如果匹配到多个值则返回第一个。
• expression如果是字符串，则对应的是 case 中的变量名对应的值，没有匹配则没有返回值。
• switch 没有默认参数可用。

以下实例返回第三个值：

实例

x <- switch(
   3,
   "google",
   "runoob",
   "taobao",
   "weibo"
)
print(x)

执行以上代码，输出结果为：

[1] "taobao"

如果是字符串返回字符串变量对应的值：

实例

you.like<-"runoob"
switch(you.like, google="www.google.com", runoob = "www.runoob.com", taobao = "www.taobao.com")

执行以上代码，输出结果为：

[1] "www.runoob.com"

如果整数不在范围内的则返回 NULL

实例

> x <- switch(4,"google","runoob","taobao")
> x
NULL
> x <- switch(4,"google","runoob","taobao")
> x
NULL