假设有以下数据集：

data <- data.frame(
    fruit = factor(c("apple", "pear", "banana", "apple", "pear")),
    color = c("red", "green", "yellow", "green", "yellow")
)

我们希望按照 color 列筛选出 color 为 "green" 的行，并只保留与该筛选结果对应的 factor 中的水果。

方法一：使用 subset() 函数筛选并更新 factor。

subset_data <- subset(data, color == "green") # 筛选
subset_data$fruit <- factor(subset_data$fruit) # 更新因子

方法二：使用 droplevels() 函数删除未出现在子集中的因子水果。

subset_data <- data[data$color == "green", ] # 筛选
subset_data$fruit <- droplevels(subset_data$fruit) # 移除未出现在子集中的因子水果

经过上述方法处理后，我们得到的 subset_data 数据集如下：

     fruit  color
1    apple   red
2     pear green
4    apple green

注意，在第二种方法中，如果我们不删除未出现在子集中的因子水果，我们得到的数据集会是：

  fruit  color
1 apple   red
2  pear green

可以看到，banana 这个水果对应的行被删除了，但是它在因子中依然存在，我们可以用 table(subset_data$fruit) 来查看该因子的值，并发现该因子中存在 banana 这个水果。因此，我们需要使用 droplevels() 函数来删除未出现在子集中的因子水果。