library(tidyverse)
library(readxl)
library(hms)
path = "files/CH-223 Custom Grouping.xlsx"
input = read_excel(path, range = "B2:D16")
test = read_excel(path, range = "H2:I9")
result = input %>%
mutate(Date = day(Date), Time = hms::as_hms(Time)) %>%
mutate(Date = ifelse(Time > hms::as_hms("12:00:00"), Date + 1, Date)) %>%
summarise(Sales = sum(Sales), .by = Date) %>%
mutate(Day = row_number()) %>%
select(Day, Sales)
all.equal(result, test, check.attributes = FALSE)
##> [1] TRUEOmid - Challenge 223
data-challenges
advanced-exercises
🔰 Challenge 223: Custom Grouping!

Challenge Description
🔰 Challenge 223: Custom Grouping!
Solutions
Logic:
Reads the workbook ranges needed for the challenge
Aggregates or ranks values at the relevant grouping level
Builds the intermediate columns that drive the final result
Strengths:
- The R solution stays close to the workbook rule and keeps the transformation compact.
Areas for Improvement:
- The code assumes the sheet structure and source ranges remain stable.
Gem:
- The strongest part of the solution is choosing the right intermediate representation before shaping the final output.
import pandas as pd
from datetime import timedelta, time
path = "CH-223 Custom Grouping.xlsx"
input = pd.read_excel(path, usecols="B:D", skiprows=1, nrows=15)
test = pd.read_excel(path, usecols="H:I", skiprows=1, nrows=7).rename(columns=lambda col: col.replace('.1', ''))
input['Date'] = input['Date'].dt.day + (input['Time'] > time(12, 0)).astype(int)
result = input.groupby(input['Date']).Sales.sum().reset_index(name='Sales').assign(Day=lambda df: range(1, len(df) + 1))
result = result[['Day', 'Sales']]
print(result.equals(test)) # TrueLogic:
Reads the workbook ranges needed for the challenge
Aggregates or ranks values at the relevant grouping level
Builds the intermediate columns that drive the final result
Strengths:
- The Python version follows the same rule in a direct dataframe-oriented implementation.
Areas for Improvement:
- The code assumes the workbook layout remains stable, so any sheet redesign would require small adjustments.
Gem:
- The implementation stays close to the original workbook rule instead of adding unnecessary abstraction.
Difficulty Level
This task is moderate:
- The business rule is readable, but the workbook still requires careful implementation to reach the expected layout.