Comment basculer entre deux niveaux dans un data.frame dans R?

Question

J'ai une trame de données

>id=c(1,2,1,1,2);type=c("B","S","S","B","B") 
>temp=data.frame(id, type) 
    id type 
1 1 B 
2 2 S 
3 1 S 
4 1 B 
5 2 B 

Ainsi, le type a deux niveaux: B et S. Pour chaque ligne, si id == 2, je voudrais passer le niveau et laisser son id = 1, et obtenir quelque chose comme ceci:

id type 
1 1 B 
2 1 B 
3 1 S 
4 1 B 
5 1 S 

J'ai essayé de code:

>for (i in 1:nrow(temp)) { 
    if (temp[i,1]==2) 
    {if (temp[i,2]=="B") temp[i,2]=="S" 
     else temp[i,2]=="B";temp[i,1]=1;} } 

Mais ça n'a pas marché. Il a retourné ceci:

id type 
1 1 B 
2 1 S 
3 1 S 
4 1 B 
5 1 B 

temp [i, 1] a changé mais temp [i, 2] reste le même. Comment puis-je le réparer? Et y a-t-il une manière plus simple de faire ceci parce que mon code semble très maladroit? Merci d'avance. -Natalia

Answer 1

Je pense que cela fonctionnera. Bien que, peut-être il y a un moyen plus simple.

id=c(1,2,1,1,2); type=c("B","S","S","B","B") 
temp=data.frame(id, type, stringsAsFactors = FALSE) 

temp$type2 <- ifelse(temp$type == 'B', 'S', 'B') 
temp 
# id type type2 
#1 1 B  S 
#2 2 S  B 
#3 1 S  B 
#4 1 B  S 
#5 2 B  S 

temp2 <- temp[,1:2] 
temp2$type <- ifelse(temp$id == 2, temp$type2, temp$type) 
temp2$id <- 1 
temp2 

# id type 
#1 1 B 
#2 1 B 
#3 1 S 
#4 1 B 
#5 1 S