R语言的for循环等简单运用

---

学习目标

我们所采用的学习内容来自B站的Lizongzhang老师的R语言的学习分享以及R语言数据分析从入门到进阶
今天学习的主要内容是关于
for循环

学习内容

下面是学习的主要内容

循环语句

for循环

#for循环的使用
b<-numeric(5)
for(i in 1:5){
  b[i]<-i^2
}
b
for (i in seq(0,10,2)) {
  #0到10,区间为2
   print(i)
}

运行结果如下:

> b
[1]  1  4  9 16 25

以及print(i),也就告诉了我们,seq函数的用法在这里是从0到10间隔为2进行取值

[1] 0
[1] 2
[1] 4
[1] 6
[1] 8
[1] 10

while循环

#while循环
 v1<-1:4
 i<-1
 while(i<=length(v1)){ 
   print(i)
   print(sum(v1[1:i]))
   i=i+1
   #对i的值进行修改,不然会进入死循环
   print(i)
   print("----")
 }

运行结果如下

[1] 1   # 这里是第一个print(i)
[1] 1  #这里表示的是 print(sum(v1[1:i])),因为第一层循环时1:1,#所以就只有第一个值
[1] 2   #这里是第二个print(i),表示这  i  值的变换
[1] "----" 下面类似
[1] 2
[1] 3
[1] 3
[1] "----"
[1] 3
[1] 6
[1] 4
[1] "----"
[1] 4
[1] 10
[1] 5
[1] "----"

while当中放入的是一个条件判断语句

df<-data.frame(c1=2:6,c2=7:11,c3=1:5)
nrow(df)
for(i in 1:nrow(df)){
  print(sum(df[i,]))
}

这里注意到nrow()意味着行的个数
运行结果如下

[1] 10
[1] 13
[1] 16
[1] 19
[1] 22

next是退出该层循环,跳到下一层循环
break表示退出所有的循环,终止循环

---

条件语句

这部分过于简单,大家看一下代码就好

#条件结构
a<-5
if(a>6)
{
  print("a>6")  
}else if(a>3){
  print("a>3")
}else{
  print("a<=3")
}

运行结果如下

[1] "a>3"

R语言当中可以写出一句简短的代码,判断奇偶,运用到了ifelse()语句

s<-45
ifelse(s%%2==0,"偶数","奇数")

运行结果如下

[1] "奇数"

ifelse函数的帮助文档如下

ifelse(test, yes, no)

test表示的是测试判断的语句,yes表示如果判断为真则运行该结构,若判断为假,则运行no下的语句

---

函数构架

这一部分也比较简单,而且个人认为R语言可以调用的函数还是很多哒,大家简单了解一下就好

#函数的构建
f1<-function(aug1){
  ans1<-1:aug1
  ans2<-prod(ans1)#求阶乘的一个操作函数
  return(ans2)
}
f1(14)

运行结果如下:

> f1(14)
[1] 87178291200

f2<-function(a,b=3){
 ans3<-a+b
 return(ans3)
}
f2(45)
f2(45,6)

运行结果如下

> f2(45)
[1] 48
> f2(45,6)
[1] 51

这里大家注意f2(45)和f2(45,6)的结果的不同

内容小结

这部分的内容还是相对来说比较简单的,大家做个简单了解就好