Skip to main content

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")

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 registros, preciso selecionar apenas um registro por paciente e que este registro seja o mais significantes possivel. Essa significância é baseada nas variáveis: "Paciente", "ResultadodoExame" e "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" é na seguinte ordem: 1-Pos, 2-Neg, 3-Inter e 9-Vazio e da variável "ResultadoComplementar" é na ordem: 1-DN1, 2-DN2, 3-DN3, 4-DN4 e 9-Vazio.

#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

d=data.frame(a,b,c)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")

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

d=data.frame(a,b,c,d)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")

Constantemente tenho que carreguei um data frame com mais de 6 milhões de registros e 40 variáveis (colunas). Destes registros, preciso selecionar apenas um registro por paciente e que este registro seja o mais significantes possível. Essa significância é baseada nas variáveis: "Paciente", "ResultadodoExame" e "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" é na seguinte ordem:

1-Pos, 2-Neg, 3-Inter e 9-Vazio

e da variável "ResultadoComplementar" é na ordem:

1-DN1, 2-DN2, 3-DN3, 4-DN4 e 9-Vazio.

####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
d=data.frame(a,b,c)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")

# 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
d=data.frame(a,b,c,d)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")
adicionou 55 caracteres ao conteúdo
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

####Data#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")

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")

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")

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 d=data.frame(a,b,c) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")

d=data.frame(a,b,c)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")
d=c("0","1","0","0","1","0","1","0","0","0","0","0","0","0","1","0","0","1","0")

d=c("0","1","0","0","1","0","1","0","0","0","0","0","0","0","1","0","0","1","0") #Objetivo#Objetivo final d=data.frame(a,b,c,d) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")

d=data.frame(a,b,c,d)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")

####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 d=data.frame(a,b,c) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")

d=c("0","1","0","0","1","0","1","0","0","0","0","0","0","0","1","0","0","1","0") #Objetivo final d=data.frame(a,b,c,d) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")

#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

d=data.frame(a,b,c)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")
d=c("0","1","0","0","1","0","1","0","0","0","0","0","0","0","1","0","0","1","0")

#Objetivo final

d=data.frame(a,b,c,d)
names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")
Fonte Link

Criar filtro para para selecionar dados sem duplicidade, a partir de regras aplicadas à variáveis

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 registros, preciso selecionar apenas um registro por paciente e que este registro seja o mais significantes possivel. Essa significância é baseada nas variáveis: "Paciente", "ResultadodoExame" e "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" é na seguinte ordem: 1-Pos, 2-Neg, 3-Inter e 9-Vazio e da variável "ResultadoComplementar" é na ordem: 1-DN1, 2-DN2, 3-DN3, 4-DN4 e 9-Vazio.

A partir dessa variável, preciso criar um filtro marcando com "0" ou "1", sendo o "1" para o registro significante.

Preciso realizar outras tarefas, que depende de todo o conjunto de dados, por isso é importante ter o filtro (variável).

O data frame baixo tem a simulação dos dados. preciso criar uma rotina que gere o campo (Variável) Filtro ("0" e "1"), lembrando que o "1" é sempre o significativo)

####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 d=data.frame(a,b,c) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar")

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 d=data.frame(a,b,c,d) names(d)<-c("Paciente","ResultadoExame","ResultadoComplementar","filtro")

Desde já, meu muito obrigado.

Abraço