use a função *reshape* conforme código a seguir: reshape(dados, v.names = "ord_cartao", idvar = "idquestionario", timevar = "cod_cartao", direction = "*wide*") em que dados (codificando mortes por 99999) é: dados<-structure(list(idquestionario = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10), cod_cartao = c(33333, 99999, 12123, 22332, 32332, 11111, 33132, 33231, 21333, 23222, 99999, 12233, 33333, 12111, 22332, 11333, 32213, 11111), ord_cartao = c(5, 4, 2, 3, 5, 1, 5, 5, 3, 7, 9, 4, 8, 2, 5, 3, 6, 1)), .Names = c("idquestionario", "cod_cartao", "ord_cartao"), row.names = c(NA, -18L), class = "data.frame") Diogo Braga Mendes Estatístico do IPAMB-Belém/PA. Mestre em Estatística-PPGME/UFPA. Bacharel em Estatística, CONRE 9558.