R语言学习笔记（四）流程函数及自定义函数

待我称王封你为后i 2022-06-06 03:58 186阅读 0赞

if(FALSE){条件执行}
    if(FALSE){
       if-else结构,多重判断}
    if(FALSE){对score进行等级判定}
    score = 65
    if(score >= 90){
      print("Excellent!")
    }else if(score >= 75){
      print("Good!")
    }else if(score >= 60){
      print("Middle!")
    }else{
      print("Failed!")}
    
    if(FALSE){ifelse结构,使用：
        ifelse(cond, statement1, statement2)
        若cond为真，则执行statement1,否则，执行statement2.
    }
    score=55
    ifelse(score >= 60, print("Passed!"), print("Failed!"))
    
    if(FALSE){
       switch()结构}
    city = 'BJ'
    print(switch(city,
                 'SH' = 'shanghai',
                 'BJ' = 'beijing',
                 'GZ' = 'guangzhou',
                 'SZ' = 'shenzhen'))

if(FALSE){重复和循环}
    if(FALSE){
       for结构，语法为：for(var in seq) statement}
    for(i in 1:10){print("Hello world!")}
    
    if(FALSE){
       while结构，语法为：while(cond) statement}
    if(FALSE){
       while结构中的break,next命令，与C语言中的break,continue命令相同}
    if(FALSE){计算1+2+...+100}
    sum <- 0
    i <- 0
    while(i<= 100){
      sum <- sum+i
      i = i+1
    }
    
    if(FALSE){
       repeat()结构，在执行第一次循环的时候不管条件是否满足，均会执行一遍}
    test_word <- 'Hello, welcome to the third class!'
    cnt <- 2
    repeat{
      print(test_word)
      cnt <- cnt+1
      if(cnt > 6){
        break
      }
    }

if(FALSE){用户自定义函数,关键字为function，输入、返回的参数为任意的数据类型}
    myfunc <- function(a,b,c){ 
      return(a+b+c)
    }
    
    print(myfunc(61,72,83))

if(FALSE){使用函数的一个例子}
    if(FALSE){计算数据框df中的col列的总和，并以60为分界线判断是否通过，文件名为“delete.R”}
    scoreGrade <- function(df, col){
      rows <- dim(df[col])[1]
      totalScore <- 0
      grade <- rep("0",rows)
    
      for(i in 1:rows){
        totalScore <- totalScore+df[i,col]
        grade[i] <- ifelse(df[i,col] >= 60, "passed", "failed")
      }
    
      print(paste("Sum of ",col," is ",totalScore,"."))
      return(cbind(df,grade))
    }

使用的数据框为：  
![这里写图片描述][SouthEast]  
运行情况如下图：  
![这里写图片描述][SouthEast 1]

--------------------

本次分享到此结束，欢迎大家交流及批评~~

[SouthEast]: /images/20220606/23bdb9878f45468a83cb3288775731d6.png
[SouthEast 1]: /images/20220606/bc2c2608cc784d859fc475d70ba071d4.png