Lesson 5: 函数

1、for与while循环

for (i in 1:5){ #左闭右闭
   print(i)
}

i<-1
while (i<10){
  i<-i+1
  print(i)
}

repeat函数

repeat {
  f[i+2]<-f[i]+f[i+1]
  i<-i+1
  if (f[i]+f[i+1]>=1000) break
}

repeat相比while的优点在于，不需要每次都判断循环条件。

2、if-else语句

i<-10
ifelse(i<10,1,NA) #ifelse(条件，满足则执行，不满足则执行）

if (i<1){
  print(i)
}else{
  print(NA)
}

3、自定义函数

fzero <- function(x,y){
   print(x+y)
}
fzero(1,2)

4、apply()

数组按行求均值，如果按列求均值，改为margin=0

apply(df, margin=1, mean)

分组统计：不同性别的身高均值，第一个参数为被统计变量，第二个参数为分组变量，第三个为函数

tapply(height,sex,mean) 

5、rep与seq

创建从c(2,2,2)

rep(2,3)

创建c(1,3,5,7)

seq(1,7,2)

6、给单个变量排序

sort(x,decreasing=TRUE) 

7、分割连续型变量

cut(x, n)

将连续型变量 x 分割为有着 n 个水平的因子

8、switch语句

x <- 2
switch(x, "Lily", "Coco", "Bob")
like <- "fruit"
switch(like,fruit="apple",toy="doll",snack="cake")