R 函数
函数是一组一起执行一个任务的语句。R 语言本身提供了很多的内置函数，当然我们也可以自己创建函数。
您可以把代码划分到不同的函数中。如何划分代码到不同的函数中是由您来决定的，但在逻辑上，划分通常是根据每个函数执行一个特定的任务来进行的。
函数声明告诉编译器函数的名称、返回类型和参数。函数定义提供了函数的实际主体。
R 语言中函数是一个对象，可以拥有属性。
定义函数
R 语言中的函数定义使用 function 关键字，一般形式如下：
function_name <- function(arg_1, arg_2, ...) {
// 函数体
}
说明：
- function_name : 为函数名
- arg_1, arg_2, ... : 形式参数列表
函数返回值使用 return()。
内置函数
R 语言提供了很多有用的内置函数，我们无需定义它就可以直接使用。
例如：seq(), mean(), max(), sum(x) 以及 paste(...) 等。
实例
# 输出 32 到 44 到的所有数字
print(seq(32,44))
# 计算两个数到平均数
print(mean(25:82))
# 计算 41 到 68 所有数字之和
print(sum(41:68))
# 输出 32 到 44 到的所有数字
print(seq(32,44))
# 计算两个数到平均数
print(mean(25:82))
# 计算 41 到 68 所有数字之和
print(sum(41:68))
执行以上代码，输出结果为：
[1] 32 33 34 35 36 37 38 39 40 41 42 43 44
[1] 53.5
[1] 1526自定义函数
我们可以自己创建函数，用于特定到功能，定义后可以向内置函数一样使用它们。
下面演示两如何自定义函数：
实例
# 定义一个函数，用于计数一个系列到平方值
new.function <- function(a) {
for(i in 1:a) {
b <- i^2
print(b)
}
}
# 定义一个函数，用于计数一个系列到平方值
new.function <- function(a) {
for(i in 1:a) {
b <- i^2
print(b)
}
}
接下来我们可以调用函数：
实例
new.function <- function(a) {
for(i in 1:a) {
b <- i^2
print(b)
}
}
# 调用函数，并传递参数
new.function(6)
new.function <- function(a) {
for(i in 1:a) {
b <- i^2
print(b)
}
}
# 调用函数，并传递参数
new.function(6)
执行以上代码，输出结果为：
[1] 1
[1] 4
[1] 9
[1] 16
[1] 25
[1] 36我们也可以创建一个不带参数的函数：
实例
new.function <- function() {
for(i in 1:5) {
print(i^2)
}
}
# 调用函数，不需要传递参数
new.function()
new.function <- function() {
for(i in 1:5) {
print(i^2)
}
}
# 调用函数，不需要传递参数
new.function()
执行以上代码，输出结果为：
[1] 1
[1] 4
[1] 9
[1] 16
[1] 25带有参数值的函数
函数参数，可以按函数创建时的顺序来传递，也可以不按顺序，但需要指定参数名：
实例
# 创建函数
new.function <- function(a,b,c) {
result <- a * b + c
print(result)
}
# 不带参数名
new.function(5,3,11)
# 带参数名
new.function(a = 11, b = 5, c = 3)
# 创建函数
new.function <- function(a,b,c) {
result <- a * b + c
print(result)
}
# 不带参数名
new.function(5,3,11)
# 带参数名
new.function(a = 11, b = 5, c = 3)
执行以上代码，输出结果为：
[1] 26
[1] 58实例
# 创建带默认参数的函数
new.function <- function(a = 3, b = 6) {
result <- a * b
print(result)
}
# 调用函数，但不传递参数，会使用默认的
new.function()
# 调用函数，传递参数
new.function(9,5)
执行以上代码，输出结果为：[1] 18[1] 45懒惰计算的函数
# 创建带默认参数的函数
new.function <- function(a = 3, b = 6) {
result <- a * b
print(result)
}
# 调用函数，但不传递参数，会使用默认的
new.function()
# 调用函数，传递参数
new.function(9,5)
懒惰计算将推迟计算工作直到系统需要这些计算的结果。如果不需要结果，将不用进行计算。
默认情况下，R 函数对参数的计算是懒惰的，就是只有我们在计算它的时候才会调用：
实例
f <- function(x) {
10
}
f()
执行以上代码，输出结果为：[1] 10
f <- function(x) {
10
}
f()
[1] 10以上代码执行，并没有报错，虽然我们没有传入参数，但函数体内没有使用参数 x，所以不会去调用它，也不会报错。
实例
new.function <- function(a, b) {
print(a^2)
print(a)
print(b) # 使用到 b，但未传入，所以会报错
}
# 传入一个参数
new.function(6)
new.function <- function(a, b) {
print(a^2)
print(a)
print(b) # 使用到 b，但未传入，所以会报错
}
# 传入一个参数
new.function(6)
执行以上代码，输出结果为：
[1] 36
[1] 6
Error in print(b) : 缺少参数"b",也没有缺省值
Calls: new.function -> print
停止执行