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 <comunello.eder@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.paula@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.