R 判斷語句

R 語言提供了以下類型的判斷語句：

• if 語句

• if...else 語句

• switch 語句

if 語句

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

語法格式如下：

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

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

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

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

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

if...else 語句

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

語法格式如下：

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

如果布爾表達(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"

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

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

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

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

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

[1] "第二個 if 包含 nhooo"

switch 語句

一個 switch 語句允許測試一個變量等于多個值時的情況。每個值稱為一個 case。

語法格式如下：

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

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

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

• 如果匹配到多個值則返回第一個。

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

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

以下示例返回第三個值：

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

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

[1] "taobao"

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

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

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

[1] "www.soo66.com"

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

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