ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3)
NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr", "capr")
IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81)
SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F")
CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I")
df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA)
df
names <- unique(df$NOME)
id_l = list()
nome_l = list()
idade_l = list()
sexo_l = list()
causa_l = list()
for (i in 1:length(names)) {
name = names[i]
block = as.data.frame(df[df$NOME == name, ])
id = block$ID[1]
nome = block$NOME[1]
idade = block$IDADE[1]
sexo = block$SEXO[1]
causa = vector()
for (j in 1:nrow(block)) {
causa = paste0(causa,block$CAUSA[j], sep = ',')
}
print(causa)
id_l[[paste0(i)]] <- id
nome_l[[paste0(i)]] <- nome
idade_l[[paste0(i)]] <- idade
sexo_l[[paste0(i)]] <- sexo
causa_l[[paste0(i)]] <- causa
}
unlist(causa_l)
dfNew <- data.frame(ID = unlist(id_l), NOME= unlist(nome_l), IDADE= unlist(idade_l), SEXO= unlist(sexo_l), CAUSA= unlist(causa_l))
print(dfNew)
Abraço
daniel
Daniel Tiezzi, MD, PhD
Professor Associado
Departamento de Ginecologia e Obstetrícia
Setor de Mastologia e Oncologia Ginecológica
Faculdade de Medicina de Ribeirão Preto - USP
Tel.: 16 3602-2488
ID <- c(1, 1, 1, 1, 2, 2, 3, 3, 3)
NOME <- c("xpto", "xpto", "xpto", "xpto", "tpzo", "tpzo", "capr", "capr", "capr")
IDADE <- c(1, 1, 1, 1, 57, 57, 81, 81, 81)
SEXO <- c("M", "M", "M", "M", "M", "M", "F", "F", "F")
CAUSA <- c("A", "B", "C", "D", "E", "F","G","H","I")
df <- data.frame(ID, NOME, IDADE, SEXO, CAUSA)
df