Possuo um data frame com quatro colunas de valores para cada ID e preciso criar um novo df excluindo os ID cujos vetores tenham mais de um zero ou mais de um NA.
Eu criei o DF
library(dplyr)
co_entidade<-c(23, 40, 58, 82, 104, 171, 198, 201, 202,244)
depend<-c(2,3,4,4,4,4,4,2,3,4)
mat13<-c(42, 218, 1397, 0, 393, 283, 1053, 529, NA, 664)
mat14<-c(44, 222, 1300, 0, 428, 246, 994, 521, NA, 678)
mat15<-c(40, 215, 1345, 199, 0, 226, 1069, 566, NA, 598)
mat16<-c(10, 208, 1442, 154, 0, 229, 1033, NA, 521,552)
df<-data.frame(co_entidade, depend, mat13, mat14, mat15, mat16)
df
Eu tentei aplicar um filtro com o pacote dplyr que até retira os 0 e NAs, mas o sistema retorna os ids separados por ano, conforme imagem abaixo
desc_0_NA <- df %>%
gather(mat_tipo, mat_valor, mat13:mat16) %>%
filter(mat_valor>0, mat_valor!="NA")
desc_0_NA
Mas, o que preciso é retirar os co_entidade que apresente mais de um valor 0 ou NA, neste meu exemplo eu terei que obter um df sem os códigos 82, 104 e 202, sublinhados em vermelho na imagem abaixo. Já que esses vetores (82 e 104) apresentam mais de um zero ou mais de um NA (202).
Se alguém souber como fazer isso no R, independentemente dos anos onde estejam os zeros ou NAs.
Desde já agradeço