library(tidyverse)
read_csv("data/treasure_hunt.csv", show_col_types = FALSE) |>
group_by(major) |>
summarise(avg = round(mean(final_treasure), 1)) |>
arrange(desc(avg))# A tibble: 5 Γ 2
major avg
<chr> <dbl>
1 OMIS 94
2 Marketing 83.2
3 Management 77.6
4 Accounting 76.8
5 Finance 71.8
