如果过滤不存在的级别会出错

Question

给定这个因子变量：

library(tidyverse)
a <- factor(c(1,1,1,2,2), levels=c(1,2), labels=c("Male", "Female"))

我希望此错误出现，因为

Females

不是有效级别：

a %>% .[.=="Male"|.=="Females"]

我该怎么做？

Answer 1

在该命令之前添加涉及

stopifnot

的行将引发错误 - 如果这就是您想要的。

{
  stopifnot(any(levels(a) %in% "Females"))
  a %>% .[.=="Male"|.=="Females"]
}