library(readr); library(dplyr); library(ggplot2)
sales <- read_csv("sales.csv") |> mutate(amount = qty * rate)
kpi <- sales |> summarise(orders = n(), total = sum(amount), avg = round(mean(amount)))
print(kpi)
product <- sales |> group_by(product) |> summarise(qty = sum(qty), sales = sum(amount)) |> arrange(desc(sales))
write_csv(product, "product_summary.csv")
ggplot(product, aes(reorder(product, sales), sales)) + geom_col() + coord_flip()
ggsave("product_sales.png", width = 6, height = 4)