The table below shows average monthly (January-June 2025) takeout spending by generation in untidy, wide format. Months are stored as column names instead of a separate variable, and each row contains multiple observations.

takeout_spending <- data.frame(
  Generation = c("Gen Z", "Millennials", "Gen X", "Baby Boomers", "Silent Gen"),
  `Jan-2025` = c(185, 240, 195, 120, 75),
  `Feb-2025` = c(172, 228, 188, 115, 70),
  `Mar-2025` = c(198, 255, 205, 130, 82),
  `Apr-2025` = c(210, 270, 215, 140, 88),
  `May-2025` = c(205, 265, 210, 135, 85),
  `Jun-2025` = c(225, 285, 220, 145, 90)
)

takeout_spending

##     Generation Jan.2025 Feb.2025 Mar.2025 Apr.2025 May.2025 Jun.2025
## 1        Gen Z      185      172      198      210      205      225
## 2  Millennials      240      228      255      270      265      285
## 3        Gen X      195      188      205      215      210      220
## 4 Baby Boomers      120      115      130      140      135      145
## 5   Silent Gen       75       70       82       88       85       90

Untidy Generational Takeout Spending

Kiera Griffiths

2026-03-01

The table below shows average monthly (January-June 2025) takeout spending by generation in untidy, wide format. Months are stored as column names instead of a separate variable, and each row contains multiple observations.