【R语言经典实例8】如何定义一个R函数。

问题

如何定义一个R函数。

解决方案

使用关键字function，并在其后跟随函数参数列表和函数主体。其基本形式如下： function(param1, ...., paramN) expr

函数主体可以是一系列表达式，这些表达式需要用大括号括起来： function(param1, ..., paramN) { expr1 . . . exprM }

讨论

函数的定义告诉R软件“用何种方式进行计算”。例如，R软件没有内置计算变异系数的函数，因此你可以定义函数如下： > cv <- function(x) sd(x)/mean(x) > cv(1:10) [1] 0.5504819

第一行定义了名为cv的函数，第二行引用该函数，以1∶10作为其参数x的值。函数对参数应用函数主体中的表达式sd(x)/mean(x)进行计算并返回结果。

定义函数后，我们可以在任何需要函数的地方应用它，例如可以作为lapply函数的第二个参数（参见方法6.2）： > cv <- function(x) sd(x)/mean(x) > lapply(lst, cv)

函数主体如果包含多行表达式，则需要使用大括号来确定函数内容的起始和结束位置。下面这一函数采用了欧几里德算法计算两个整数的最大公约数： > gcd <- function(a,b) { + if (b == 0) return(a) + else return(gcd(b, a %% b)) + }

R软件也允许使用匿名函数，匿名函数是没有函数名称但在单行的语句中很实用的函数。先前的例子中我们提到将cv函数作为lapply函数的一个参数，而若使用匿名函数直接作为lapply函数的参数，则能将原先的命令简化至同一行中： > lapply(lst, function(x) sd(x)/mean(x))

由于本书重点不在于介绍R的编程语言，这里不对R函数编程的细微之处进行解释。下面给出几个需要注意的地方：

返回值

所有函数都有一个返回值，即函数主体最后一个表达式值。你也可以通过return(expr)命令给出函数的返回值。

值调用

函数参数是“值调用”——如果你改变了函数中的参数值，改变只是局部的，并不会影响该参数所引用的变量值。

局部变量

你可以简单地通过赋值来创建一个局部变量，函数结束后该局部变量会消失。

条件执行

R语法中包含if语句，更多详情可以使用help(Control)命令查看。

循环语句

R语法中也包括for循环、while循环以及repeat循环语句。更多详情可以使用help(Control)命令查看。

全局变量

在函数中，你可以通过<<-操作符来改变全局变量的值，但此种方法不推荐使用。

另请参阅

有关如何定义函数，参见《An Introduction to R》（http://cran.r-project.org/doc/manuals/R-intro.pdf）和《R in a Nutshell》。2.12 定义函数

问题

如何定义一个R函数。

解决方案

使用关键字function，并在其后跟随函数参数列表和函数主体。其基本形式如下： function(param1, ...., paramN) expr

函数主体可以是一系列表达式，这些表达式需要用大括号括起来： function(param1, ..., paramN) { expr1 . . . exprM }

讨论

函数的定义告诉R软件“用何种方式进行计算”。例如，R软件没有内置计算变异系数的函数，因此你可以定义函数如下： > cv <- function(x) sd(x)/mean(x) > cv(1:10) [1] 0.5504819

第一行定义了名为cv的函数，第二行引用该函数，以1∶10作为其参数x的值。函数对参数应用函数主体中的表达式sd(x)/mean(x)进行计算并返回结果。

定义函数后，我们可以在任何需要函数的地方应用它，例如可以作为lapply函数的第二个参数（参见方法6.2）： > cv <- function(x) sd(x)/mean(x) > lapply(lst, cv)

函数主体如果包含多行表达式，则需要使用大括号来确定函数内容的起始和结束位置。下面这一函数采用了欧几里德算法计算两个整数的最大公约数： > gcd <- function(a,b) { + if (b == 0) return(a) + else return(gcd(b, a %% b)) + }

R软件也允许使用匿名函数，匿名函数是没有函数名称但在单行的语句中很实用的函数。先前的例子中我们提到将cv函数作为lapply函数的一个参数，而若使用匿名函数直接作为lapply函数的参数，则能将原先的命令简化至同一行中： > lapply(lst, function(x) sd(x)/mean(x))

由于本书重点不在于介绍R的编程语言，这里不对R函数编程的细微之处进行解释。下面给出几个需要注意的地方：

返回值

所有函数都有一个返回值，即函数主体最后一个表达式值。你也可以通过return(expr)命令给出函数的返回值。

值调用

函数参数是“值调用”——如果你改变了函数中的参数值，改变只是局部的，并不会影响该参数所引用的变量值。

局部变量

你可以简单地通过赋值来创建一个局部变量，函数结束后该局部变量会消失。

条件执行

R语法中包含if语句，更多详情可以使用help(Control)命令查看。

循环语句

R语法中也包括for循环、while循环以及repeat循环语句。更多详情可以使用help(Control)命令查看。

全局变量

在函数中，你可以通过<<-操作符来改变全局变量的值，但此种方法不推荐使用。