Perceba que o a linha de nome 18 e a linha de nome 12 tem as mesmas características, mas resultados diferentes para o filtro que você disponibilizou como exemplo. [![inserir a descrição da imagem aqui][1]][1] De todo modo, perceba que com manipulação de dados é possível criar um indicador para o resultado e filtrar os pacientes. Inicialmente modifiquei o `ResultadoExame` e `ResultadoComplementar` para números. Criei uma espécie de peso para resultados vazios (`vazior1` e `vazior2`) e depois fiz a soma. Filtrei as menores somas, depois removi as duplicatas de resultado por paciente. Obtive os mesmos resultados, entretanto o paciente da linha 15 do data frame `d` é o mesmo da linha 12. ``` df <- d %>% dplyr::mutate(ResultadoExame = ifelse(ResultadoExame == "9-Vazio", 9, ResultadoExame), ResultadoComplementar = ifelse(ResultadoComplementar == "9-Vazio", 9, ResultadoComplementar), vazio = ifelse(ResultadoExame == 9 & ResultadoComplementar == 9, 10, 1), vazior1 = ifelse(ResultadoExame == 9, 0, 1), vazior2 = ifelse(ResultadoComplementar == 9, 0, 1), Resultado = ifelse(ResultadoExame == 9 & ResultadoComplementar == 9, 100, (ResultadoExame*vazior1 + ResultadoComplementar*vazior2)*vazio)) %>% dplyr::select(Paciente, ResultadoExame, ResultadoComplementar, Resultado) %>% dplyr::mutate(linha_d = 1:nrow(d)) %>% dplyr::filter(Resultado < 10) %>% dplyr::arrange(ResultadoExame, ResultadoComplementar, Resultado) %>% as.data.table() df <- df[, .SD[which.min(Resultado)], by = Paciente] df ``` ``` > df Paciente ResultadoExame ResultadoComplementar Resultado linha_d 1: Fernandes Fulano da Silva 1 1 2 5 2: Manuel Fulano da Silva 1 1 2 7 3: Carlos Fulano da Silva 1 9 1 12 4: Joao Fulano da Silva 1 9 1 18 5: Matheus Fulano da Silva 3 9 3 2 ``` ---- Seu data frame, a nível de comparação. ``` d=data.frame(a,b,c,dx) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro") d <- d %>% dplyr::mutate(linha_d = 1:nrow(d), filtro = as.numeric(as.character(filtro))) %>% dplyr::filter(filtro > 0) d ``` ``` > d Paciente ResultadoExame ResultadoComplementar filtro linha_d 1 Matheus Fulano da Silva 3-Inter 9-Vazio 1 2 2 Fernandes Fulano da Silva 1-Pos 1-DN1 1 5 3 Manuel Fulano da Silva 1-Pos 1-DN1 1 7 4 Carlos Fulano da Silva 1-Pos 1-DN1 1 15 5 Joao Fulano da Silva 1-Pos 9-Vazio 1 18 ``` [1]: https://i.sstatic.net/1yHJJ.png