R Tutorial
Fundamentals of R
Variables
Input and Output
Decision Making
Control Flow
Functions
Strings
Vectors
Lists
Arrays
Matrices
Factors
DataFrames
Object Oriented Programming
Error Handling
File Handling
Packages in R
Data Interfaces
Data Visualization
Statistics
Machine Learning with R
The lapply() function in R stands for "List Apply," and it's used to apply a function to each element of a list or a vector, returning the result in a list format. Here's a tutorial to help you understand and use lapply():
lapply()The simplest form of lapply() takes in a list (or a vector) and a function:
numbers <- list(1:5, 6:10, 11:15) result <- lapply(numbers, mean) print(result)
This applies the mean() function to each element of the list numbers.
You can also use lapply() with user-defined functions:
squared <- function(x) {
return(x^2)
}
nums <- 1:5
result <- lapply(nums, squared)
print(result)
If your function requires more than one argument, you can pass the additional arguments after specifying the function:
power <- function(x, p) {
return(x^p)
}
nums <- 1:5
result <- lapply(nums, power, p=3)
print(result)
This will raise each element of nums to the power of 3.
It's essential to remember that the result of lapply() is always a list, even when applying the function to a vector. If you want a vector as the result (specifically for simple lists or vectors), you can wrap lapply() in unlist():
result <- unlist(lapply(nums, squared)) print(result)
Although lapply() is intended for lists, it also works on other data structures like data frames:
df <- data.frame(A = 1:5, B = 6:10) # Get the sum of each column sums <- lapply(df, sum) print(sums)
Sometimes, you might want to use a function within lapply() without explicitly defining it elsewhere. This is where anonymous functions come in:
result <- lapply(nums, function(x) x*2 + 3) print(result)
In this case, the function function(x) x*2 + 3 doesn't have a name, but it's directly used within lapply().
lapply() is a powerful tool in R for performing operations on lists or vectors element-wise. Its relatives, like sapply(), mapply(), and vapply(), offer similar functionality but with different output structures or input handling. Familiarity with these functions can greatly enhance your data manipulation efficiency in R.
R lapply() Function Example:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Apply a function to each element of the list result <- lapply(my_list, sum)
How to Use lapply() in R:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Use lapply to apply a function to each element of the list result <- lapply(my_list, mean)
Applying a Function to Each Element of a List in R:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Apply a user-defined function to each element of the list custom_function <- function(x) sum(x) * 2 result <- lapply(my_list, custom_function)
Using lapply() with User-Defined Functions in R:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Apply a user-defined function to each element of the list custom_function <- function(x) sum(x) * 2 result <- lapply(my_list, custom_function)
Applying Built-In Functions with lapply() in R:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Apply a built-in function to each element of the list result <- lapply(my_list, length)
Applying Functions to Multiple Lists with lapply() in R:
# Create two lists list1 <- list(a = c(1, 2, 3), b = c(4, 5, 6)) list2 <- list(c = c(7, 8, 9), d = c(10, 11, 12)) # Apply a function to corresponding elements of both lists result <- mapply(function(x, y) sum(x) + sum(y), list1, list2)
Parallel Processing with lapply() in R:
# Install and load 'parallel' package
install.packages("parallel")
library(parallel)
# Create a list
my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))
# Apply a function in parallel
cl <- makeCluster(2)
result <- parLapply(cl, my_list, sum)
stopCluster(cl)
Conditional Application of Functions with lapply() in R:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Apply a function conditionally based on the length of each element result <- lapply(my_list, function(x) ifelse(length(x) > 2, sum(x), NA))
Using lapply() with Anonymous Functions in R:
# Create a list my_list <- list(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9)) # Apply an anonymous function to each element of the list result <- lapply(my_list, function(x) sum(x) * 2)