hw

library(“scales”) sales_summary <- readRDS(“bike_orderlines.rds”) sales_summary <- sales_summary %>% group_by(Prime_Category = category_1, Secondary_Category = category_2, Frame_Material = frame_material) %>% summarize(Sales = sum(total_price), .groups = “drop”) sales_summary <- sales_summary %>% mutate(Sales = dollar(Sales)) sales_summary <- sales_summary %>% rename(‘Prime Category’ = Prime_Category, ‘Secondary Category’ = Secondary_Category, ‘Frame Material’ = Frame_Material) sales_summary <- sales_summary %>% arrange(desc(Sales)) print(sales_summary)