- 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,
(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.
Seu data frame, a nível de comparação.
- Retornando a resposta para o data frame
d
.
d=data.frame(a,b,c,d)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")
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) %>%
filtrodplyr::mutate(Resultado = as.numericifelse(asis.characterna(filtroResultado), 0 , 1)) %>%
dplyr::filterrename(filtro"Paciente" >= 0Paciente.x,
"ResultadoExame" = ResultadoExame.x,
"ResultadoComplementar" = ResultadoComplementar.x)
dplyr::sample_n(tbl = d, 5)
> dplyr::sample_n(tbl = d, 5)
Paciente ResultadoExame ResultadoComplementar filtro linha_dResultado
1 MatheusFernandes Fulano da Silva 3-Inter 1-Pos 9-Vazio 1-DN1 1 21
2 Fernandes Joao Fulano da Silva 3-Inter 1 3-PosDN3 0
3 Matheus Fulano da Silva 1 3-DN1Inter 1 5 9-Vazio 1
34 Manuel Joao Fulano da Silva 1-Pos 9-Vazio 1
5 Joao Fulano da Silva 2-DN1Neg 1 7 2-DN2 0
4
# seus dados
a=c("Matheus Fulano da CarlosSilva","Matheus Fulano da SilvaSilva","Fernandes Fulano da Silva",
"Fernandes Fulano da 1-PosSilva","Fernandes Fulano da Silva","Fernandes Fulano da Silva",
"Manuel Fulano da Silva","Manuel Fulano da Silva","Manuel Fulano 1-DN1da Silva",
"Manuel 1Fulano da Silva","Manuel Fulano da Silva", 15
5"Carlos Fulano da Silva",
Joao"Carlos Fulano da SilvaSilva","Carlos Fulano da Silva","Carlos Fulano da Silva",
1-Pos"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",
9"2-VazioNeg","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 = 1a, ResultadoExame = b, ResultadoComplementar = 18c)