Drop unused factor levels in a subsetted data frame Drop unused factor levels in a subsetted data frame r r