R 语言经典实例（原书第 2 版）

460

｜

第

15

章

但是，坦率地说，这也说明了循环在 R 中比在其他编程语言中更少见的一个原因。R 的

向量化操作快速简便，通常不需要显式的循环。这是前一个示例的向量化版本：

v <- 1:5

v <- v^2

print(v)

#> [1] 1 4 9 16 25

15.2.4 另请参阅

循环很少使用的另一个原因是函数 map 和类似函数可以同时处理整个向量和列表，通常

比循环更快速、更容易。有关使用 purrr 添加包将函数应用于列表的详细信息，请参

阅 6.1 节。

15.3 定义一个函数

15.3.1 问题

需要定义一个新的 R 函数。

15.3.2 解决方案

使用 function 关键字后跟参数名称列表以及函数体的方法来创建函数：

name <- function(

param1

, ...,

paramN

) {

expr1

.

.

.

exprM

}

参数放在圆括号内，函数体是一个或多个表达式序列，需要把函数体的全部内容放在

大括号内。R 将按顺序对每个表达式求值，并返回最后一个表达式的值，此处表示为

exprM

。

15.3.3 讨论

函数定义的内容是你告诉 R 如何进行计算的方法。例如，R 没有用于计算变异系数的内

置函数，但我们可以创建这样一个函数，称之为 cv：

cv <- function(x) {

sd(x) / mean(x)

}

简单编程

｜

461

该函数有一个参数 x，函数体是 sd(x)/mean(x)。当我们用一个参数调用该函数时，

R 会将参数 x 设置为该值，然后对函数体求值：

cv(1:10) ...