R語言函數

函數是一個組織在一起的一組以執行特定任務的語句。R語言有大量的內置函數，用戶也可以創建自己的函數。

在R語言中的函數是一個對象，所以R語言解釋器為能夠通過控製到該函數，帶有參數可能是函數必要完成的操作。

反過來函數執行其任務，並將控製返回到其可以被存儲在其它的目的解釋器以及任何結果。

函數定義

R函數是通過使用關鍵字 function 來創建。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