Apply family vs loops in R Programming - Visual Side-by-Side Comparison

Concept Flow - Apply family vs loops

Start with data

↓

Choose method

↓

Use loop

↓

Iterate over

↓

each element

↓

Collect results

↓

Output

This flow shows how you start with data, choose between loops or apply functions, process each element, and collect results.

Execution Sample

R Programming

x <- 1:3

# Using loop
res_loop <- rep(NA, length(x))
for(i in seq_along(x)) {
  res_loop[i] <- x[i]^2
}

# Using sapply
res_apply <- sapply(x, function(n) n^2)

This code squares numbers 1 to 3 using a for loop and then using sapply from the apply family.

Execution Table

Step	i (index)	x[i]	Loop Action	res_loop	sapply Action	res_apply
1	1	1	Calculate 1^2=1	1 NA NA	Calculate 1^2=1	1 4 9
2	2	2	Calculate 2^2=4	1 4 NA	Already calculated	1 4 9
3	3	3	Calculate 3^2=9	1 4 9	Already calculated	1 4 9
End	-	-	Loop ends after i=3	1 4 9	sapply finished all	1 4 9

💡 Loop ends after i=3 because length(x) is 3; sapply applies function to all elements at once.

Variable Tracker

Variable	Start	After 1	After 2	After 3	Final
i	-	1	2	3	-
res_loop	NA NA NA	1 NA NA	1 4 NA	1 4 9	1 4 9
res_apply	-	-	-	-	1 4 9

Key Moments - 2 Insights

Why does res_apply have all results immediately while res_loop fills step by step?

Because sapply applies the function to all elements internally and returns the full result at once, unlike the loop which fills res_loop one element at a time (see execution_table rows 1-3).

Why do we need to initialize res_loop before the loop?

In R, vectors must have a defined size before assignment in a loop to avoid growing the vector each iteration, which is slow. This is shown in variable_tracker where res_loop starts as NA vector.

Visual Quiz - 3 Questions

Look at the execution_table at Step 2, what is the value of res_loop?

A 1 4 NA

B 1 NA NA

C NA NA NA

D 1 4 9

💡 Hint

Check the 'res_loop' column at Step 2 in the execution_table.

At which step does the loop finish executing?

A Step 2

B End

C Step 3

D Step 1

💡 Hint

Look for the row labeled 'End' in the execution_table and see the exit_note.

If we change x to 1:4, how many rows would the loop execution_table have before 'End'?

A 3

B 5

C 4

D 2

💡 Hint

The loop runs once per element in x; check variable_tracker for length(x)=3 and extrapolate.

Concept Snapshot

Apply family vs loops in R:
- Loops: explicit iteration, step-by-step assignment
- Apply functions: concise, internal iteration
- Initialize vectors before loops for speed
- Apply returns full result at once
- Use apply for cleaner, often faster code

Full Transcript

This visual execution compares using a for loop and the apply family function sapply in R to square numbers 1 to 3. The loop iterates over each element, calculates the square, and stores it step-by-step in res_loop. The sapply function applies the square function to all elements at once and returns the full result immediately in res_apply. Variables like i and res_loop change each iteration, while res_apply is ready after sapply finishes. Key points include initializing vectors before loops and understanding that apply functions handle iteration internally. The quiz checks understanding of variable states and loop termination.

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