uso o R para tratar informações.
Constantemente tenho que carreguei um data frame com mais de 6 milhões de registros e 40 variáveis (colunas).Destes Destes registros, preciso selecionar
apenas um registro por paciente e que este registro seja o mais significantes possivelpossível. Essa significância é baseada nas variáveis: "Paciente""Paciente"
, "ResultadodoExame""ResultadodoExame"
e "ResultadoComplementar""ResultadoComplementar"
, seguindo um critério de prioridade (1, 2, 3 e 4) de ordenação. Quanto menor o número (ordem - antes do início os dados) maior é a prioridade.
Por exemplo: a prioridade dos dados da variável "Resultados""Resultados"
é na seguinte ordem: 1-Pos, 2-Neg, 3-Inter e 9-Vazio
1-Pos, 2-Neg, 3-Inter e 9-Vazio
e da variável "ResultadoComplementar"
é"ResultadoComplementar"
é na ordem: 1-DN1, 2-DN2, 3-DN3, 4-DN4 e 9-Vazio.
1-DN1, 2-DN2, 3-DN3, 4-DN4 e 9-Vazio.
#Data frame
####Data frame
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")
#meu data frame
#meu data frame
d=data.frame(a,b,c)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")
preciso criar uma função para gerar o filtro
# preciso criar uma função para gerar o filtro
d=c("0","1","0","0","1","0","1","0","0","0","0","0","0","0","1","0","0","1","0")
#Objetivo final
#Objetivo final
d=data.frame(a,b,c,d)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")