Factor vector subsetting in R: drop or not unused factor levels, subset by factor level.