Sales Report

interative <- TRUE

library(tidyverse)
library(lubridate)
library(tidyquant)
library(plotly)

source("scripts/plot_sales.R")

bike_orderlines_tbl <- read_rds("data/bike_orderlines.rds")

1 Total Sales Charts

1.1 Quarterly Sales Trends

plot_total_sales(unit = "quarter", interactive = interative)

1.2 Monthly Sales Trends

plot_total_sales(unit = "month", interactive = interative)

1.3 Weekly Sales Trends

plot_total_sales(unit = "week", date_format = "%Y-%m-%d", interactive = interative)

2 Category Sales Charts

2.1 Road

2.1.1 Quarterly

plot_categories(category_1 = "Road", unit = "quarter", ncol = 1, interactive = interative)

2.1.2 Monthly

plot_categories(category_1 = "Road", unit = "month", ncol = 1, interactive = interative)

2.1.3 Weekly

plot_categories(category_1 = "Road", unit = "week", date_format = "%Y-%m-%d", ncol = 1, interactive = interative)

2.2 Mountain

2.2.1 Quarterly

plot_categories(category_1 = "Mountain", unit = "quarter", ncol = 1, interactive = interative)

2.2.2 Monthly

plot_categories(category_1 = "Mountain", unit = "month", ncol = 1, interactive = interative)

2.2.3 Weekly

plot_categories(category_1 = "Mountain", unit = "week", date_format = "%Y-%m-%d", ncol = 1, interactive = interative)