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