summarise() with group_by() in R Programming - Mini Project: Build & Apply

Summarise Data with group_by() in R

📖 Scenario: You have sales data from a small store. Each sale has a product name and the number of units sold. You want to find out how many units were sold for each product in total.

🎯 Goal: Build a small R script that groups sales by product and calculates the total units sold for each product using group_by() and summarise().

📋 What You'll Learn

Create a data frame called sales with columns product and units with exact values

Create a grouped data frame using group_by() on product

Use summarise() to calculate total units sold per product

Print the summarised data frame

💡 Why This Matters

🌍 Real World

Stores and businesses often need to summarise sales data by product to understand which items sell the most.

💼 Career

Data analysts and scientists use <code>dplyr</code> functions like <code>group_by()</code> and <code>summarise()</code> to prepare and analyse data efficiently.

1

Create the sales data frame

Create a data frame called sales with two columns: product and units. Use these exact values: product = c("apple", "banana", "apple", "orange", "banana"), units = c(5, 3, 2, 4, 1).

R Programming

# Create the sales data frame with product and units columns
# Your code here

Hint

Use data.frame() with named vectors for product and units.

2

Group sales by product

Load the dplyr package with library(dplyr). Then create a new variable called grouped_sales by applying group_by() on the sales data frame grouping by product.

R Programming

sales <- data.frame(
  product = c("apple", "banana", "apple", "orange", "banana"),
  units = c(5, 3, 2, 4, 1)
)

# Load dplyr and group sales by product
# Your code here

Hint

Use library(dplyr) to load the package first.

3

Summarise total units sold per product

Create a new variable called summary_sales by applying summarise() on grouped_sales. Calculate the total units sold per product using total_units = sum(units).

R Programming

library(dplyr)
sales <- data.frame(
  product = c("apple", "banana", "apple", "orange", "banana"),
  units = c(5, 3, 2, 4, 1)
)
grouped_sales <- group_by(sales, product)

# Summarise total units sold per product
# Your code here

Hint

Use summarise() with total_units = sum(units) inside.

4

Print the summarised sales data

Print the summary_sales data frame to show total units sold per product.

R Programming

library(dplyr)
sales <- data.frame(
  product = c("apple", "banana", "apple", "orange", "banana"),
  units = c(5, 3, 2, 4, 1)
)
grouped_sales <- group_by(sales, product)
summary_sales <- summarise(grouped_sales, total_units = sum(units))

# Print the summary_sales data frame
# Your code here

Hint

Use print(summary_sales) to display the result.

Practice

1. What does the group_by() function do in R's dplyr package?

easy

A. It splits data into groups based on specified columns.

B. It sorts the data in ascending order.

C. It removes duplicate rows from the data.

D. It changes the data type of columns.

Solution

1. Step 1: Understand the purpose of group_by()

   The group_by() function is used to split data into groups based on one or more columns.

2. Step 2: Compare with other options

   Sorting, removing duplicates, or changing data types are done by other functions, not group_by().

3. Final Answer:

   It splits data into groups based on specified columns. -> Option A

4. Quick Check:

   group_by() = splits data into groups [OK]

Hint: Remember: group_by() groups data by columns [OK]

Common Mistakes:

• Confusing group_by() with arrange() for sorting
• Thinking group_by() removes duplicates
• Assuming group_by() changes data types

2. Which of the following is the correct syntax to group a data frame df by the column category and then summarise the mean of value?

easy

A. df %>% group_by(category) %>% summarise(mean_value = mean(value))

B. df %>% summarise(mean_value = mean(value)) %>% group_by(category)

C. group_by(df, category) %>% summarise(mean_value = mean(value))

D. df %>% group_by(category) %>% mean(value)

Solution

1. Step 1: Identify correct pipe sequence

   The correct order is to first group the data, then summarise it. So df %>% group_by(category) %>% summarise(...) is correct.

2. Step 2: Check function usage

   mean(value) inside summarise is correct. df %>% summarise(mean_value = mean(value)) %>% group_by(category) reverses the order, C uses wrong syntax, and D misses summarise.

3. Final Answer:

   df %>% group_by(category) %>% summarise(mean_value = mean(value)) -> Option A

4. Quick Check:

   group_by() then summarise() = df %>% group_by(category) %>% summarise(mean_value = mean(value)) [OK]

Hint: Always group before summarising with %>% [OK]

Common Mistakes:

• Putting summarise() before group_by()
• Using mean() outside summarise()
• Incorrect function chaining syntax

3. Given the data frame df below:

df <- data.frame(group = c('A', 'A', 'B', 'B', 'B'), value = c(10, 20, 30, 40, 50))

What is the output of:

df %>% group_by(group) %>% summarise(total = sum(value))

medium

A. group | total
-----|------
A | 10
B | 30

B. group | total
-----|------
A | 30
B | 90

C. group | total
-----|------
A | 20
B | 50

D. group | total
-----|------
A | 30
B | 120

Solution

1. Step 1: Group data by 'group'

   There are two groups: 'A' with values 10 and 20, and 'B' with values 30, 40, 50.

2. Step 2: Calculate sum of 'value' for each group

   Sum for 'A' = 10 + 20 = 30; Sum for 'B' = 30 + 40 + 50 = 120.

3. Final Answer:

   group | total -----|------ A | 30 B | 120 -> Option D

4. Quick Check:

   sum values by group = group | total -----|------ A | 30 B | 120 [OK]

Hint: Add values per group to find sum quickly [OK]

Common Mistakes:

• Adding only first two values of group B
• Mixing group labels and values
• Confusing sum with mean

4. Consider this code snippet:

df <- data.frame(team = c('X', 'X', 'Y'), score = c(5, 7, 8))
df %>% summarise(avg_score = mean(score)) %>% group_by(team)

What is the main issue here?

medium

A. The code will produce an error because group_by() must come first.

B. The summarise() is used before group_by(), so grouping is lost.

C. The mean() function is used incorrectly inside summarise().

D. The data frame df is missing required columns.

Solution

1. Step 1: Analyze function order

   The code summarises the whole data first, losing group info, then tries to group after summarising.

2. Step 2: Understand grouping effect

   Grouping after summarise has no effect because summarise returns a smaller data frame without original groups.

3. Final Answer:

   The summarise() is used before group_by(), so grouping is lost. -> Option B

4. Quick Check:

   group_by() must come before summarise() [OK]

Hint: Always group before summarising to keep groups [OK]

Common Mistakes:

• Assuming group_by() after summarise() works
• Thinking summarise() keeps original groups
• Believing mean() usage is wrong here

5. You have a data frame sales with columns region, product, and revenue. You want to find the average revenue per product only for regions where total revenue exceeds 1000. Which code correctly achieves this?

hard

A. sales %>% group_by(region) %>% summarise(total_rev = sum(revenue)) %>% filter(total_rev > 1000) %>% group_by(product) %>% summarise(avg_rev = mean(revenue))

B. sales %>% group_by(region, product) %>% summarise(total_rev = sum(revenue)) %>% filter(total_rev > 1000) %>% summarise(avg_rev = mean(total_rev))

C. sales %>% group_by(region) %>% filter(sum(revenue) > 1000) %>% group_by(product) %>% summarise(avg_rev = mean(revenue))

D. sales %>% group_by(product) %>% summarise(avg_rev = mean(revenue)) %>% filter(region %in% (sales %>% group_by(region) %>% summarise(total_rev = sum(revenue)) %>% filter(total_rev > 1000) %>% pull(region)))

Solution

1. Step 1: Filter regions with total revenue > 1000

   Using filter(sum(revenue) > 1000) inside group_by(region) keeps only those regions.

2. Step 2: Group by product and summarise average revenue

   After filtering, regroup by product and calculate mean revenue per product.

3. Step 3: Check other options

   sales %>% group_by(region) %>% summarise(total_rev = sum(revenue)) %>% filter(total_rev > 1000) %>% group_by(product) %>% summarise(avg_rev = mean(revenue)) tries to summarise twice but loses revenue values for product grouping. sales %>% group_by(region, product) %>% summarise(total_rev = sum(revenue)) %>% filter(total_rev > 1000) %>% summarise(avg_rev = mean(total_rev)) mixes grouping and summarising incorrectly. sales %>% group_by(product) %>% summarise(avg_rev = mean(revenue)) %>% filter(region %in% (sales %>% group_by(region) %>% summarise(total_rev = sum(revenue)) %>% filter(total_rev > 1000) %>% pull(region))) filters after summarising by product, which is wrong.

4. Final Answer:

   sales %>% group_by(region) %>% filter(sum(revenue) > 1000) %>% group_by(product) %>% summarise(avg_rev = mean(revenue)) -> Option C

5. Quick Check:

   Filter groups before summarise for correct subset [OK]

Hint: Filter groups with filter(sum(...) > val) before summarise [OK]

Common Mistakes:

• Summarising before filtering groups
• Losing original revenue values after summarise
• Incorrect chaining of group_by and summarise