R语言 函数

R语言 函数

一个函数是一组有组织的语句，用于执行特定的任务。R拥有大量内置函数，并且用户可以创建自己的函数。

在R中，函数是一个对象，因此R解释器能够将控制权传递给函数，并且可能需要一些参数来完成函数的操作。

函数执行其任务后，会将控制权返回给解释器，并且可以将任何结果存储在其他对象中。

函数定义

使用关键字 function 来创建一个R函数。R函数定义的基本语法如下：

function_name <- function(arg_1, arg_2, ...) {
   Function body 
}

函数组件

函数的不同部分包括：

• 函数名称 - 这是函数的实际名称。它以这个名字作为对象存储在R环境中。

• 参数 - 参数是一个占位符。当调用函数时，您可以向参数传递一个值。参数是可选的，也就是说，函数可以不包含参数。参数还可以有默认值。

• 函数体 - 函数体包含了一系列语句，定义了函数的功能。

• 返回值 - 函数的返回值是函数体中最后一个被评估的表达式。

R语言中有许多内置函数，可以在不首先定义它们的情况下直接在程序中调用。我们还可以创建和使用我们自己定义的函数，称为用户自定义函数。

内置函数

内置函数的简单示例包括 seq() 、 mean() 、 max() 、 sum(x) 和 paste(…) 等。它们可以直接被用户编写的程序调用。您可以参考最常用的R函数。

# Create a sequence of numbers from 32 to 44.
print(seq(32,44))

# Find mean of numbers from 25 to 82.
print(mean(25:82))

# Find sum of numbers frm 41 to 68.
print(sum(41:68))

当我们执行上述代码时，它将产生以下结果 –

[1] 32 33 34 35 36 37 38 39 40 41 42 43 44
[1] 53.5
[1] 1526

用户自定义函数

在R中，我们可以创建用户自定义函数。它们是根据用户需求创建的，并且一旦创建，就可以像内置函数一样使用。下面是创建和使用函数的示例。

# Create a function to print squares of numbers in sequence.
new.function <- function(a) {
   for(i in 1:a) {
      b <- i^2
      print(b)
   }
}

调用函数

# Create a function to print squares of numbers in sequence.
new.function <- function(a) {
   for(i in 1:a) {
      b <- i^2
      print(b)
   }
}

# Call the function new.function supplying 6 as an argument.
new.function(6)

当我们执行上面的代码时，它会产生以下结果 –

[1] 1
[1] 4
[1] 9
[1] 16
[1] 25
[1] 36

调用一个没有参数的函数

# Create a function without an argument.
new.function <- function() {
   for(i in 1:5) {
      print(i^2)
   }
}   

# Call the function without supplying an argument.
new.function()

当我们执行上面的代码时，会产生以下结果 –

[1] 1
[1] 4
[1] 9
[1] 16
[1] 25

调用带有参数值的函数（按位置和按名称）

函数调用的参数可以按照函数定义的顺序提供，也可以按照不同的顺序提供，并分配给参数的名称。

# Create a function with arguments.
new.function <- function(a,b,c) {
   result <- a * b + c
   print(result)
}

# Call the function by position of arguments.
new.function(5,3,11)

# Call the function by names of the arguments.
new.function(a = 11, b = 5, c = 3)

当我们执行上面的代码时，它会产生以下结果 –

[1] 26
[1] 58

在函数中使用默认参数调用函数

我们可以在函数定义中定义参数的值，并调用函数而不提供任何参数来获取默认结果。但是我们也可以通过提供参数的新值来调用这样的函数，并获得非默认的结果。

# Create a function with arguments.
new.function <- function(a = 3, b = 6) {
   result <- a * b
   print(result)
}

# Call the function without giving any argument.
new.function()

# Call the function with giving new values of the argument.
new.function(9,5)

当我们执行上面的代码时，它会产生以下结果−

[1] 18
[1] 45

函数的惰性求值

函数的参数是惰性求值的，这意味着它们只有在函数体需要时才会被求值。

# Create a function with arguments.
new.function <- function(a, b) {
   print(a^2)
   print(a)
   print(b)
}

# Evaluate the function without supplying one of the arguments.
new.function(6)

执行上述代码时，会得到以下结果 –

[1] 36
[1] 6
Error in print(b) : argument "b" is missing, with no default