R语言-编写自定义函数 ZZ

时间:2023-03-08 15:27:17
R语言-编写自定义函数 ZZ

一、函数构造器

每一个R函数都包括三个部分:函数名,程序主体以及参数集合,在编写自定义R函数时,需要将三个部分各自储存在一个R对象中。这里需要使用function函数,形如:

my_function<-function(){}

function函数可以将大括号内的代码内容构建成一个函数,例如:

roll<-function(){
dice<-sample(1:6,2,replace = T)#可重复抽样
sum(dice)
}
roll()

函数将返回最后一行的运行输出结果,如果最后一行不输出结果,整个函数也将不会有返回值

二、含参函数的构造

可以通过在括号里填入参数名称加以实现,具体如下:

roll2<-function(bones){
dice<-sample(bones,2,replace = T)#可重复抽样
sum(dice)
}
> roll2()
Error in sample(bones, 2, replace = T) :
argument "bones" is missing, with no default
> roll2(1:10)
[1] 11

可以发现如果不写参数,R将报错,为了防止类似的错误发生,可以预先设置一个初始默认值给bones参数,只需在括号里用等号将默认值与参数相连即可。

形如:

roll3<-function(bones=1:6){
dice<-sample(bones,2,replace = T) #可重复抽样
sum(dice)
}
> roll3()
[1] 9

三、提取函数

就像其他语言的IDE一样,RStudio也提供了抽取函数的功能,在R脚本中选中对应的代码段,在菜单栏中选择Code>Extract Function即可。RStudio会询问给函数取什么名字,然后用function将所需函数包装起来,并会自动检查代码段中未定义的变量,将其设置为该函数的参数。

提取函数之后,同志们记得检查一下,主要是看看有没有什么需要设置默认值的参数,或者函数有没有返回值之类的问题。

四、查看函数

不仅可以通过help查看函数解释,还可以通过直接输入函数名查看函数代码

这就是开源的好处!