---
title: "Quarterly Analysis Report"
author: "G Krishnamurthy"
date: "2026-04-15"
output: 
  html_document:
    theme: cosmo
    toc: true
    toc_float: true
---

# Executive Introduction



``` r
# Create sample data
df <- data.frame(
  Region = c("North", "South", "East", "West"),
  Sales = c(450, 320, 500, 610)
)
# A simple calculation for the next file to use
total_sales <- sum(df$Sales)

## Sales Visualization
The total sales for this period across all regions was **1880** units.


``` r
library(ggplot2)

ggplot(df, aes(x = Region, y = Sales, fill = Region)) +
  geom_bar(stat = "identity") +
  theme_minimal()