library(tidyverse)
write.csv(read_csv("/Users/jake/Downloads/DM.CSV") %>% select("Subject") %>% group_by(Subject) %>% summarise(count=n()) %>% arrange(-count), "/Users/jake/Desktop/Draft-Mass-Report.csv")