R 简明教程

R - Functions

函数是一组陈述,为了执行特定的任务而被组织在一起。R 具有大量的内置函数并且用户可以创建自己的函数。

在 R 中,函数是一个对象,因此 R 解释器能够将控制权传递给函数,连同对于函数完成操作可能必要的参数。

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

Function Definition

R 函数是通过使用关键字 function 创建的。R 函数定义的基本语法如下−

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

Function Components

函数的不同部分是−

  1. Function Name − 这是函数的实际名称。它作为具有此名称的对象存储在 R 环境中。

  2. Arguments − 参数是占位符。当一个函数被调用时,您将一个值传递给了参数。参数是可选的;也就是说,函数可能没有参数。参数也可以有默认值。

  3. Function Body − 函数主体包含一系列的陈述,定义了函数所做的事情。

  4. Return Value − 函数的返回值是函数主体中要计算的最后一个表达式。

R 有许多 in-built 函数,可在程序中直接调用,而无需先定义它们。我们还可以创建和使用我们自己的函数,称为 user defined 函数。

Built-in Function

内置函数的简单示例包括 seq()mean()max()sum(x)paste(…​) 等。它们由用户编写的程序直接调用。你可以参考 most widely used R functions.

# 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

User-defined Function

我们可以在 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)
   }
}

Calling a Function

# 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

Calling a Function without an Argument

# 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

Calling a Function with Argument Values (by position and by name)

可以按函数中定义的相同顺序提供函数调用的参数,也可以按不同的顺序提供参数,但是被分配给参数的名称。

# 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

Calling a Function with Default Argument

我们可以定义函数定义中的参数的值,并且在不提供任何参数的情况下调用函数以获取默认结果。但是,我们也可以通过提供参数的新值并获得非默认结果来调用此类函数。

# 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

Lazy Evaluation of Function

对函数的参数进行惰性求值,这意味着只有函数体需要时才会评估它们。

# 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