library(readxl); library(dplyr); library(ggplot2)
sales <- read_excel("sales.xlsx", sheet = "Data")
names(sales) <- tolower(names(sales))
summary_tbl <- sales |>
  mutate(amount = qty * price) |>
  group_by(region) |>
  summarise(orders = n(), revenue = sum(amount), avg_order = mean(amount)) |>
  arrange(desc(revenue))
print(summary_tbl)
ggplot(summary_tbl, aes(x = reorder(region, revenue), y = revenue)) +
  geom_col(fill = "#e47f53") + coord_flip() +
  labs(x = NULL, y = "Revenue", title = "Revenue by region")