R 基于因子级别的子集数据帧

我有数据帧df1：

根据数据帧的级别对数据帧进行子集划分的最直接的方法是什么？

我们可以使用子集和包裹式液滴级别删除未使用的级别，因为它是一个因子列

df2

df1 <- data.frame(respondent = factor(c(1, 2, 3, 4, 5, 6, 7)),
                 location = factor(c("California", "Oregon", "Oregon",
                                     "Texas", "Oregon", "Mexico", "Canada")))

df2 <- data.frame(respondent = factor(c(2, 3, 5)),
                 location = factor(c("Oregon", "Oregon",
                                     "Oregon")))

df2 <- droplevels(subset(df1, location == 'Oregon'))