R 判斷語(yǔ)句

R 語(yǔ)言提供了以下類型的判斷語(yǔ)句：

• if 語(yǔ)句

• if...else 語(yǔ)句

• switch 語(yǔ)句

if 語(yǔ)句

一個(gè) if 語(yǔ)句 由一個(gè)布爾表達(dá)式后跟一個(gè)或多個(gè)語(yǔ)句組成。

語(yǔ)法格式如下：

if(boolean_expression) {
    // 布爾表達(dá)式為真將執(zhí)行的語(yǔ)句
}

如果布爾表達(dá)式 boolean_expression  為 ture 執(zhí)行這里面的代碼，如果 為 false 則不執(zhí)行。

x <- 50L
if(is.integer(x)) {
   print("X 是一個(gè)整數(shù)")
}

執(zhí)行以上代碼，輸出結(jié)果為：

[1] "X 是一個(gè)整數(shù)"

if...else 語(yǔ)句

一個(gè) if 語(yǔ)句 后可跟一個(gè)可選的 else 語(yǔ)句，else 語(yǔ)句在布爾表達(dá)式為假時(shí)執(zhí)行。

語(yǔ)法格式如下：

if(boolean_expression) {
    // 如果布爾表達(dá)式為真將執(zhí)行的語(yǔ)句
} else {
    // 如果布爾表達(dá)式為假將執(zhí)行的語(yǔ)句
}

如果布爾表達(dá)式 boolean_expression 為 true，則執(zhí)行 if 塊內(nèi)的代碼。如果布爾表達(dá)式為 false，則執(zhí)行 else 塊內(nèi)的代碼。

x <- c("google","nhooo","taobao")

if("nhooo" %in% x) {
   print("包含 nhooo")
} else {
   print("不包含 nhooo")
}

執(zhí)行以上代碼，輸出結(jié)果為：

[1] "包含 nhooo"

如果有多個(gè)條件判斷，可以使用 if...else if...else：

if(boolean_expression 1) {
    // 如果布爾表達(dá)式 boolean_expression 1 為真將執(zhí)行的語(yǔ)句
} else if( boolean_expression 2) {
    // 如果布爾表達(dá)式 boolean_expression 2 為真將執(zhí)行的語(yǔ)句
} else if( boolean_expression 3) {
    // 如果布爾表達(dá)式 boolean_expression 3 為真將執(zhí)行的語(yǔ)句
} else {
    // 以上所有的布爾表達(dá)式都為 false 時(shí)執(zhí)行
}

x <- c("google","nhooo","taobao")

if("weibo" %in% x) {
   print("第一個(gè) if 包含 weibo")
} else if ("nhooo" %in% x) {
   print("第二個(gè) if 包含 nhooo")
} else {
   print("沒(méi)有找到")
}

執(zhí)行以上代碼，輸出結(jié)果為：

[1] "第二個(gè) if 包含 nhooo"

switch 語(yǔ)句

一個(gè) switch 語(yǔ)句允許測(cè)試一個(gè)變量等于多個(gè)值時(shí)的情況。每個(gè)值稱為一個(gè) case。

語(yǔ)法格式如下：

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

switch 語(yǔ)句必須遵循下面的規(guī)則：

• switch 語(yǔ)句中的 expression 是一個(gè)常量表達(dá)式，可以是整數(shù)或字符串，如果是整數(shù)則返回對(duì)應(yīng)的 case 位置值，如果整數(shù)不在位置的范圍內(nèi)則返回 NULL。

• 如果匹配到多個(gè)值則返回第一個(gè)。

• expression如果是字符串，則對(duì)應(yīng)的是 case 中的變量名對(duì)應(yīng)的值，沒(méi)有匹配則沒(méi)有返回值。

• switch 沒(méi)有默認(rèn)參數(shù)可用。

以下示例返回第三個(gè)值：

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

執(zhí)行以上代碼，輸出結(jié)果為：

[1] "taobao"

如果是字符串返回字符串變量對(duì)應(yīng)的值：

you.like<-"nhooo"
switch(you.like, google="www.google.com", nhooo = "www.jixiangtaizi.com.cn", taobao = "www.taobao.com")

執(zhí)行以上代碼，輸出結(jié)果為：

[1] "www.jixiangtaizi.com.cn"

如果整數(shù)不在范圍內(nèi)的則返回 NULL

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