Skip to main content
adicionou 17 caracteres ao conteúdo
Fonte Link
bbiasi
  • 814
  • 6
  • 16
# 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 considerado alto
                                   (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
# 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
# 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 considerado alto
                                   (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
adicionou 8 caracteres ao conteúdo
Fonte Link
bbiasi
  • 814
  • 6
  • 16
# 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
# seus dados
a=ca = 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=cb = 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=cc = 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=datad = data.frame(Paciente = a, ResultadoExame = b, ResultadoComplementar = c)
# 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
# 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)
# 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
# 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)
adicionou 1491 caracteres ao conteúdo
Fonte Link
bbiasi
  • 814
  • 6
  • 16
  • 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

  • Dados utilizados.
# 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)
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

Seu data frame, a nível de comparação.

d=data.frame(a,b,c,d)
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
  • 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.

  • 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)
removeu 2 caracteres do conteúdo
Fonte Link
bbiasi
  • 814
  • 6
  • 16
Carregando
adicionou 40 caracteres ao conteúdo
Fonte Link
bbiasi
  • 814
  • 6
  • 16
Carregando
Fonte Link
bbiasi
  • 814
  • 6
  • 16
Carregando