R语言3——判断&循环

R语言3——R中的语法

1.R中的判断结构

if

if...else 

switch 语句

x <- c(1,2,3,4,5)
if(2 %in% x ){
  print("2 in x")
}else{
  print("2 not in x")
}


if(2 %in% x ){
  print("2 in x")
}else if(6 %in% x ){
  print("6 in x")
}else{
  print("6 not in x")
}


a <- switch(3,4,"one","two",9,12,3)  #3表示获取后面元素中的第三个
a

 三个判断结构的结果如下：

[1] "2 in x"

[1] "2 in x"

[1] "two"

2.R语言的循环

R 语言提供的循环类型有:

repeat 循环， if(condition) {  }退出循环

x <- 5
repeat{
  x <- x+1
    if(x > 20 ){
      break
    }
}
x

#输出结果
[1] 21

while 循环，while(condition)，当condition为true时，循环一直进行，当condition为false时退出循环

x <- c(1:10)
i <- 1  #i表示循环次数
while(i %in% x){
  i <- i+1
}
i

#结果为
[1] 11

for 循环，注意这里不是%in%了，而是in

 n <- 1
x <- c(1:10)
x
for( n in x){
  x[n] <- x[n]+1
}
x

#输出结果

[1]  1  2  3  4  5  6  7  8  9 10


[1]  2  3  4  5  6  7  8  9 10 11

R 语言提供的循环控制语句有：

break 语句：用于退出当前循环或语句，如果实在内层循环，那么将退出内层循环，开始执行外层循环。

Next 语句：next 语句用于跳过当前循环，开始下一次循环（类似其他语言的 continue）

n <- 1
x <- c(1:10)
for( n in x){
  if(n == 5 || n ==8){
    next
  }
  print(x[n])
}

[1] 1
[1] 2
[1] 3
[1] 4
[1] 6
[1] 7
[1] 9
[1] 10

3.R中的函数

（1）创建新的功能函数

function_name <- function(arg_1, arg_2, ...) {
    // 函数体
}

function_name : 为函数名；arg_1, arg_2, ... : 形式参数列表函数返回值使用 return()。

new.function <- function(a) {
  for(i in 1:a) {
    b <- i^2
    print(b)
  }
}

new.function(6)


#结果如下：
> new.function(6)
[1] 1
[1] 4
[1] 9
[1] 16
[1] 25
[1] 36

（2）调用现有的函数

感觉无需解释，就是百度自己需要的函数，help一下，传入合法参数即可调用。