Apply family vs loops in R Programming

Introduction

We use the apply family to run the same task on many items quickly and simply. Loops do this too, but apply functions are often shorter and easier to read.

When you want to do the same calculation on each row or column of a table.

When you want to repeat a function on every item in a list without writing a loop.

When you want cleaner and faster code than writing for or while loops.

When you want to avoid mistakes that can happen in loops by using built-in functions.

When you want to write code that is easier to understand and maintain.

Syntax

R Programming

apply(X, MARGIN, FUN, ...)
lapply(X, FUN, ...)
sapply(X, FUN, ...)
tapply(X, INDEX, FUN = NULL, ...)
mapply(FUN, ..., MoreArgs = NULL, SIMPLIFY = TRUE, USE.NAMES = TRUE)

apply() works on matrices or arrays; MARGIN = 1 for rows, 2 for columns.

lapply() returns a list; sapply() tries to simplify the result.

Examples

Sum each row of a 2x3 matrix using apply().

R Programming

apply(matrix(1:6, nrow=2), 1, sum)

Square each number in a list using lapply().

R Programming

lapply(list(1, 2, 3), function(x) x^2)

Same as above but returns a vector instead of a list.

R Programming

sapply(list(1, 2, 3), function(x) x^2)

Using a loop to print squares of numbers 1 to 3.

R Programming

for(i in 1:3) { print(i^2) }

Sample Program

This program shows three ways to square numbers in a list: with lapply(), sapply(), and a for loop. It prints the results so you can see they are the same.

R Programming

numbers <- list(1, 2, 3, 4, 5)

# Using lapply to square each number
squares_lapply <- lapply(numbers, function(x) x^2)
print("Squares with lapply:")
print(squares_lapply)

# Using sapply to square each number
squares_sapply <- sapply(numbers, function(x) x^2)
print("Squares with sapply:")
print(squares_sapply)

# Using a for loop to square each number
squares_loop <- vector("numeric", length(numbers))
for(i in seq_along(numbers)) {
  squares_loop[i] <- numbers[[i]]^2
}
print("Squares with for loop:")
print(squares_loop)

Important Notes

Apply functions often run faster than loops in R.

Use lapply() when you want a list back, sapply() when you want a simpler result like a vector.

Loops are more flexible but can be longer and harder to read.

Summary

Apply family functions help repeat tasks on many items easily.

They often make code shorter and clearer than loops.

Choose the right apply function based on the input and desired output.

Practice

1. Which of the following is a key advantage of using the apply family of functions over traditional loops in R?

easy

A. They make code shorter and easier to read

B. They always run faster than loops

C. They require less memory than loops

D. They can only be used with numeric data

Solution

1. Step 1: Understand the purpose of apply functions

   Apply functions are designed to perform repetitive tasks on data structures more concisely than loops.

2. Step 2: Compare advantages

   While apply functions often improve readability and reduce code length, they do not always guarantee faster execution or less memory use, and they work with various data types.

3. Final Answer:

   They make code shorter and easier to read -> Option A

4. Quick Check:

   Apply functions improve code clarity [OK]

Hint: Apply functions simplify repetitive tasks in fewer lines [OK]

Common Mistakes:

• Assuming apply functions always run faster
• Thinking apply functions only work with numbers
• Believing apply functions use less memory always

2. Which of the following is the correct syntax to use lapply on a list named my_list applying the function sqrt?

easy

A. lapply(my_list, sqrt)

B. lapply(my_list; sqrt)

C. lapply(my_list sqrt)

D. lapply(sqrt, my_list)

Solution

1. Step 1: Recall lapply syntax

   The correct syntax is lapply(X, FUN) where X is the list and FUN is the function to apply.

2. Step 2: Match syntax to options

   lapply(my_list, sqrt) correctly places the list first and the function second, separated by a comma.

3. Final Answer:

   lapply(my_list, sqrt) -> Option A

4. Quick Check:

   lapply(list, function) syntax [OK]

Hint: Remember lapply(list, function) order [OK]

Common Mistakes:

• Swapping the order of arguments
• Missing commas between arguments
• Using incorrect separators like semicolons

3. What is the output of the following R code?

mat <- matrix(1:6, nrow=2)
result <- apply(mat, 2, sum)
print(result)

medium

A. [1] 4 6 8

B. [1] 5 7 9

C. [1] 3 7 11

D. [1] 2 4 6

Solution

1. Step 1: Understand the matrix and apply parameters

   The matrix has 2 rows and 3 columns: columns are (1,3,5) and (2,4,6) if filled by column, but since nrow=2, the matrix is filled column-wise as: first column (1,2), second (3,4), third (5,6). Using apply with margin 2 applies the function to columns.

2. Step 2: Calculate column sums

   Sum of columns: 1+2=3, 3+4=7, 5+6=11.

3. Final Answer:

   [1] 3 7 11 -> Option C

4. Quick Check:

   apply with margin 2 sums columns [OK]

Hint: Margin 2 means apply function to columns [OK]

Common Mistakes:

• Confusing margin 1 (rows) with margin 2 (columns)
• Adding rows instead of columns
• Misreading matrix layout

4. Consider this R code snippet:

vec <- 1:5
result <- sapply(vec, function(x) x^2)
print(result)

What is the error in this code?

medium

A. Function syntax is incorrect

B. Missing parentheses after function

C. sapply cannot be used on vectors

D. No error; code runs correctly

Solution

1. Step 1: Check sapply usage on vector

   sapply works on vectors and applies the function to each element.

2. Step 2: Verify function syntax and parentheses

   The anonymous function syntax is correct and parentheses are properly placed.

3. Final Answer:

   No error; code runs correctly -> Option D

4. Quick Check:

   sapply with anonymous function on vector is valid [OK]

Hint: Anonymous functions need parentheses and braces [OK]

Common Mistakes:

• Thinking sapply can't handle vectors
• Misreading function syntax
• Assuming missing parentheses

5. You have a list of numeric vectors: my_list <- list(a = 1:3, b = 4:6, c = 7:9). You want to create a named vector with the mean of each element but only include those means greater than 5. Which R code correctly does this using apply family functions?

hard

A. means <- lapply(my_list, mean); means[means > 5]

B. means <- sapply(my_list, mean); means[means > 5]

C. means <- apply(my_list, 1, mean); means[means > 5]

D. means <- sapply(my_list, mean > 5)

Solution

1. Step 1: Choose correct apply function for list to vector

   sapply returns a vector with names, suitable for filtering.

2. Step 2: Calculate means and filter

   Calculate means with sapply, then subset with condition means > 5.

3. Final Answer:

   means <- sapply(my_list, mean); means[means > 5] -> Option B

4. Quick Check:

   sapply returns named vector, filter with logical index [OK]

Hint: Use sapply for named vector, then filter by condition [OK]

Common Mistakes:

• Using lapply returns list, not vector for filtering
• apply does not work on lists directly
• Passing condition inside mean function