week 12 —-

library(dplyr)

path_bike_orderlines <- “bike_orderlines.rds” bike_orderlines_tbl <- readRDS(path_bike_orderlines)

grouped_data <- bike_orderlines_tbl %>% group_by(bikeshop_name) %>% summarise(total_quantity = sum(quantity), count = n()) %>% mutate(percentage = (total_quantity / sum(total_quantity)) * 100)

print(grouped_data)