过滤错误是删除太多行

Question

以下消息删除了我几乎所有的行，这是怎么回事？

这是代码：

table <- table%>%filter(ESTADO == c('ACTIVA','ACTIVO','TARJETA NUEVA','NORMAL','DESEMBOLSADO','REESTRUCTURADO','N'))

这是错误：

Warning messages:
1: In `==.default`(ESTADO, c("ACTIVA", "ACTIVO", "TARJETA NUEVA", "NORMAL",  :
  longer object length is not a multiple of shorter object length
2: In is.na(e1) | is.na(e2) :
  longer object length is not a multiple of shorter object length