Perfeito, Éder. Obrigada.
Em 10 de março de 2014 17:06, Éder Comunello <comunello.e...@gmail.com>escreveu: > Fátima, boa tarde! > > Nessa solução uso os rótulos 'sim' e 'nao' como nome das novas colunas, > eliminando a necessidade de mais duas colunas com essa informação. > > ### <code r> > > cap=c("A1","A3","B2","B5","C6","C8","D4","F5","G8","H1","K9","A1","A3","B2","B5","C6","C8","D4","F5","G8","H1","K9") > Var1=c("nao","nao","nao","nao","nao","nao","nao","nao","nao","nao","nao", > "sim","sim","sim","sim","sim","sim","sim","sim","sim","sim","sim") > Var2=c(2,5,7,4,1,2,4,8,9,6,7,4,5,3,2,4,5,8,7,0,1,1) > df=cbind(cap,Var1,Var2) > df=as.data.frame(df) > df > > require(reshape) > cast(df, cap~Var1, value='Var2') > ### </code> > > Éder Comunello <c <comunello.e...@gmail.com>omunello.e...@gmail.com> > Dourados, MS - [22 16.5'S, 54 49'W] > > > Em 10 de março de 2014 15:22, Fátima Lima Paula < > fatima.lima.pa...@gmail.com> escreveu: > >> >> Prezados, eu tenho um data frame assim >> >> >> cap=c("A1","A3","B2","B5","C6","C8","D4","F5","G8","H1","K9","A1","A3","B2","B5","C6","C8","D4","F5","G8","H1","K9") >> Var1=c("nao","nao","nao","nao","nao","nao","nao","nao","nao","nao","nao", >> "sim","sim","sim","sim","sim","sim","sim","sim","sim","sim","sim") >> Var2=c(2,5,7,4,1,2,4,8,9,6,7,4,5,3,2,4,5,8,7,0,1,1) >> df=cbind(cap,Var1,Var2) >> df=as.data.frame(df) >> df >> >> cap Var1 Var2 >> 1 A1 nao 2 >> 2 A3 nao 5 >> 3 B2 nao 7 >> 4 B5 nao 4 >> 5 C6 nao 1 >> 6 C8 nao 2 >> 7 D4 nao 4 >> 8 F5 nao 8 >> 9 G8 nao 9 >> 10 H1 nao 6 >> 11 K9 nao 7 >> 12 A1 sim 4 >> 13 A3 sim 5 >> 14 B2 sim 3 >> 15 B5 sim 2 >> 16 C6 sim 4 >> 17 C8 sim 5 >> 18 D4 sim 8 >> 19 F5 sim 7 >> 20 G8 sim 0 >> 21 H1 sim 1 >> 22 K9 sim 1 >> >> >> E gostaria que ficasse assim: >> >> cap=c("A1","A3","B2","B5","C6","C8","D4","F5","G8","H1","K9") >> Var1=c("nao","nao","nao","nao","nao","nao","nao","nao","nao","nao","nao") >> Var2=c(2,5,7,4,1,2,4,8,9,6,7) >> Var3=c("sim","sim","sim","sim","sim","sim","sim","sim","sim","sim","sim") >> Var4=c(4,5,3,2,4,5,8,7,0,1,1) >> df=cbind(cap,Var1,Var2,Var3,Var4) >> df=as.data.frame(df) >> df >> cap Var1 Var2 Var3 Var4 >> 1 A1 nao 2 sim 4 >> 2 A3 nao 5 sim 5 >> 3 B2 nao 7 sim 3 >> 4 B5 nao 4 sim 2 >> 5 C6 nao 1 sim 4 >> 6 C8 nao 2 sim 5 >> 7 D4 nao 4 sim 8 >> 8 F5 nao 8 sim 7 >> 9 G8 nao 9 sim 0 >> 10 H1 nao 6 sim 1 >> 11 K9 nao 7 sim 1 >> >> Alguém poderia me ajudar? >> Obrigada >> Fátima >> >> -- >> "Minha felicidade depende da qualidade dos meus pensamentos" >> >> _______________________________________________ >> R-br mailing list >> R-br@listas.c3sl.ufpr.br >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça >> código mínimo reproduzível. >> > > > _______________________________________________ > R-br mailing list > R-br@listas.c3sl.ufpr.br > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. > -- "Minha felicidade depende da qualidade dos meus pensamentos"
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.