Yazma İşlevleri

R'de işlevler birinci sınıf vatandaşlardır (kendi başlarına nesnelerdir) ve kodunuzu modüler, yeniden kullanılabilir ve iyi organize edilmiş bloklar halinde yapılandırmanıza olanak tanır.

Fonksiyon Tanımlama

Bir işlevi tanımlamak için function anahtar sözcüğünü kullanın ve oluşturulan nesneyi <- atama operatörünü kullanarak bir değişkene (işlev adı) atayın:

# Simple function definition
greet_user <- function() {
  print("Hello, User!")
}

# Invoking the function
greet_user()

Parametreler ve Dönüş Değerleri

Fonksiyonlar bir veya daha fazla parametreyi kabul edebilir. Açıkça bir değer döndürmek için return() işlevini kullanın. return() atlanırsa, R, işlev gövdesinde en son değerlendirilen ifadenin değerini otomatik olarak döndürür.

# Function that adds two numbers and returns the result
add_numbers <- function(a, b) {
  sum_result <- a + b
  return(sum_result)
}

total <- add_numbers(5, 7)
print(total) # Prints 12

Varsayılan Bağımsız Değişkenler

Bir fonksiyonun parametreleri için varsayılan değerleri belirleyebilirsiniz. İşlev çağrıldığında argüman sağlanmazsa, R varsayılan değeri kullanacaktır:

# The function uses a default discount rate of 10% (0.10)
apply_discount <- function(price, discount = 0.10) {
  discounted_price <- price * (1 - discount)
  return(discounted_price)
}

# Uses the default (10%)
print(apply_discount(100)) # Prints 90

# Specifies a custom discount (20%)
print(apply_discount(100, 0.20)) # Prints 80

Listelerle Birden Çok Değer Döndürme

R'deki bir işlev return() aracılığıyla yalnızca tek bir nesneyi doğrudan döndürebildiğinden, birden fazla değer döndürmemiz gerekirse (muhtemelen farklı türde veya uzunluklarda), bunları bir liste (list) içinde paketleyebiliriz:

get_stats <- function(v) {
  stats <- list(
    mean_val = mean(v),
    max_val = max(v)
  )
  return(stats)
}

results <- get_stats(c(10, 20, 30))
print(results$mean_val) # Prints 20

Anonim İşlevler ve sapply

Anonim işlevler (satır içi tanımlanmış bir adı olmayan işlevler), bir vektörün veya listenin öğelerine hızlı dönüşümler uygulamak için sapply() gibi işlevlerle eşleştirildiğinde son derece kullanışlıdır.

Modern R'de (sürüm 4.1.0'dan itibaren), klasik function(x)'ye ek olarak \(x) kısayol sözdizimini kullanarak anonim işlevleri tanımlayabilirsiniz:

v <- c(1, 2, 3)

# Using sapply with a classic anonymous function
sapply(v, function(x) x^2) # 1 4 9

# Using sapply with shorthand syntax (R >= 4.1.0)
sapply(v, \(x) x^2) # 1 4 9

Kendin dene