library(dplyr) librar(readxl) your_data <- readxl::read_excel(“bike_orderlines (1).xlsx”) result <- your_data %>% + group_by(bikeshop_name) %>% + summarise( + total_quantity = sum(quantity), + total_percentage = sum(quantity) / sum(your_data$quantity) * 100 + ) print(result)