Perceba que 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, isto pode criar viés para seu objetivo. [![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. - Manipulando os dados do *data frame* `d` para gerar os resultados. ``` # manipulacao para gerar indice/filtro library(dplyr) library(data.table) 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, # 100 => valor qualquer (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 ``` O *data frame* com os resultados dos pacientes que devem ser atendidos prioritariamente. ``` > 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 ``` - Retornando a resposta para o *data frame* `d`. ``` d <- d %>% dplyr::mutate(linha_d = 1:nrow(d)) %>% dplyr::left_join(df, by = "linha_d") %>% # inserindo dados a partir do df dplyr::select(Paciente.x, ResultadoExame.x, ResultadoComplementar.x, Resultado) %>% dplyr::mutate(Resultado = ifelse(is.na(Resultado), 0 , 1)) %>% dplyr::rename("Paciente" = Paciente.x, "ResultadoExame" = ResultadoExame.x, "ResultadoComplementar" = ResultadoComplementar.x) dplyr::sample_n(tbl = d, 5) ``` ``` > dplyr::sample_n(tbl = d, 5) Paciente ResultadoExame ResultadoComplementar Resultado 1 Fernandes Fulano da Silva 1-Pos 1-DN1 1 2 Joao Fulano da Silva 3-Inter 3-DN3 0 3 Matheus Fulano da Silva 3-Inter 9-Vazio 1 4 Joao Fulano da Silva 1-Pos 9-Vazio 1 5 Joao Fulano da Silva 2-Neg 2-DN2 0 ``` --- - Dados utilizados. ``` # seus dados a = c("Matheus Fulano da Silva","Matheus Fulano da Silva","Fernandes Fulano da Silva", "Fernandes Fulano da Silva","Fernandes Fulano da Silva","Fernandes Fulano da Silva", "Manuel Fulano da Silva","Manuel Fulano da Silva","Manuel Fulano da Silva", "Manuel Fulano da Silva","Manuel Fulano da Silva", "Carlos Fulano da Silva", "Carlos Fulano da Silva","Carlos Fulano da Silva","Carlos Fulano da Silva", "Joao Fulano da Silva","Joao Fulano da Silva","Joao Fulano da Silva","Joao Fulano da Silva") b = c("9-Vazio","3-Inter","2-Neg","1-Pos","1-Pos","3-Inter","1-Pos","1-Pos","9-Vazio", "2-Neg","3-Inter","1-Pos","2-Neg","9-Vazio","1-Pos","2-Neg","3-Inter","1-Pos","2-Neg") c = c("9-Vazio","9-Vazio","9-Vazio","2-DN2","1-DN1","9-Vazio","1-DN1","1-DN1","9-Vazio", "9-Vazio","9-Vazio","9-Vazio","9-Vazio","9-Vazio","1-DN1","2-DN2","3-DN3","9-Vazio","9-Vazio") d = data.frame(Paciente = a, ResultadoExame = b, ResultadoComplementar = c) ``` [1]: https://i.sstatic.net/1yHJJ.png