<div>x = structure(list(ID = 1, AF1MEDIDA1 = 11.7, AF1MEDIDA2 = 5, AF2MEDIDA1 = 21, </div><div>    AF2MEDIDA2 = 21, AF3MEDIDA1 = 33, AF3MEDIDA2 = 20.03), .Names = c("ID", </div><div>"AF1MEDIDA1", "AF1MEDIDA2", "AF2MEDIDA1", "AF2MEDIDA2", "AF3MEDIDA1", </div>

<div>"AF3MEDIDA2"), row.names = c(NA, -1L), class = "data.frame")</div><div><br></div>y = with(reshape(x, varying=2:7, idvar="ID", direction="long", sep="", timevar="Grupo", ),<div>

            data.frame(ID=ID,</div><div>                            REP=substr(Grupo, 2, nchar(Grupo)),</div><div>                            AF=paste("AF", substr(Grupo, 1, 1), sep=""),</div><div>                            VALOR=AF))</div>