hw_03

# 1. Load up libraries ----
install.packages("readxl")
library(readxl)

install.packages("tidyverse")
library(tidyverse)

install.packages("dplyr")
library(dplyr)

install.packages("scales")
library(scales)

if (!require("pacman")) install.packages("pacman")

# 2. Import data ----
readxl::read_excel("bike_orderlines.xlsx")

path1 = "./bikes_orderlines.xlsx"

# 3. Summarize ----
library(dplyr)
library(scales)

bike_orderlines_tbl %>%
  mutate(quantity = as.numeric(quantity),
         price = as.numeric(price)) %>%
  group_by(category_1, category_2, frame_material) %>%
  summarize(Sales = dollar(sum(quantity * price))) %>%
  rename(`Prime category` = category_1,
         `Secondary category` = category_2,
         `Frame Material` = frame_material) %>% 
  arrange(desc(Sales)) %>% 
  view()