R forcats fct_match 测试因子中是否存在水平

fct_match(f, lvls)

table(fct_match(gss_cat$marital, c("Married", "Divorced")))
#> 
#> FALSE  TRUE 
#>  7983 13500 

# Compare to %in%, misspelled levels throw an error
table(gss_cat$marital %in% c("Maried", "Davorced"))
#> 
#> FALSE 
#> 21483 
if (FALSE) {
table(fct_match(gss_cat$marital, c("Maried", "Davorced")))
}