Is there an R function to get subsets by unique values in column 'Department' [duplicate]