Remplacer une valeur dans un bloc de données basé sur une instruction conditionnelle (`if`)

Dans la trame de données R codée ci-dessous, je voudrais remplacer toutes les heures qui B apparaissent par b.

junk <- data.frame(x <- rep(LETTERS[1:4], 3), y <- letters[1:12])
colnames(junk) <- c("nm", "val")

cela fournit:

   nm val
1   A   a
2   B   b
3   C   c
4   D   d
5   A   e
6   B   f
7   C   g
8   D   h
9   A   i
10  B   j
11  C   k
12  D   l

Ma première tentative était d'utiliser des instructions foret ifcomme ceci:

for(i in junk$nm) if(i %in% "B") junk$nm <- "b"

mais comme je suis sûr que vous pouvez le voir, cela remplace TOUTES les valeurs de junk$nmavec b. Je peux voir pourquoi cela fait cela, mais je n'arrive pas à le faire remplacer uniquement les cas de junk $ nm où la valeur d'origine était B.

REMARQUE: j'ai réussi à résoudre le problème avec, gsubmais dans l'intérêt de l'apprentissage, je voudrais toujours savoir comment faire fonctionner mon approche originale (si cela est possible)

Plus facile à convertir nm en caractères, puis à effectuer le changement:

junk$nm <- as.character(junk$nm)
junk$nm[junk$nm == "B"] <- "b"

EDIT: Et si en effet vous avez besoin de maintenir nm comme facteurs, ajoutez ceci à la fin:

junk$nm <- as.factor(junk$nm)

un autre moyen utile de remplacer les valeurs

library(plyr)
junk$nm <- revalue(junk$nm, c("B"="b"))

La réponse courte est:

junk$nm[junk$nm %in% "B"] <- "b"

Jetez un œil aux vecteurs d'index dans R Introduction (si vous ne l'avez pas encore lu).

ÉDITER. Comme remarqué dans les commentaires, cette solution fonctionne pour les vecteurs de caractères, donc échouez sur vos données.

Pour le facteur le meilleur moyen est de changer de niveau:

levels(junk$nm)[levels(junk$nm)=="B"] <- "b"

Comme les données que vous montrez sont des facteurs, cela complique un peu les choses. La réponse de @ diliop aborde le problème en se convertissant nmen une variable caractère. Pour revenir aux facteurs d'origine, une étape supplémentaire est nécessaire.

Une alternative consiste à manipuler les niveaux du facteur en place.

> lev <- with(junk, levels(nm))
> lev[lev == "B"] <- "b"
> junk2 <- within(junk, levels(nm) <- lev)
> junk2
   nm val
1   A   a
2   b   b
3   C   c
4   D   d
5   A   e
6   b   f
7   C   g
8   D   h
9   A   i
10  b   j
11  C   k
12  D   l

C'est assez simple et j'oublie souvent qu'il existe une fonction de remplacement pour levels().

Edit: Comme indiqué par @Seth dans les commentaires, cela peut être fait en une seule ligne, sans perte de clarté:

within(junk, levels(nm)[levels(nm) == "B"] <- "b")

Le moyen le plus simple de le faire en une seule commande est d'utiliser la whichcommande et de ne pas avoir besoin de changer les facteurs en caractère en faisant ceci:

junk$nm[which(junk$nm=="B")]<-"b"

Vous avez créé une variable de facteur dans nm, vous devez donc soit éviter de le faire, soit ajouter un niveau supplémentaire aux attributs de facteur. Vous devez également éviter d'utiliser <-dans les arguments de data.frame ()

Option 1:

junk <- data.frame(x = rep(LETTERS[1:4], 3), y =letters[1:12], stringsAsFactors=FALSE)
junk$nm[junk$nm == "B"] <- "b"

Option 2:

levels(junk$nm) <- c(levels(junk$nm), "b")
junk$nm[junk$nm == "B"] <- "b"
junk

Si vous travaillez avec des variables de caractères (notez que stringsAsFactorsc'est faux ici), vous pouvez utiliser replace:

junk <- data.frame(x <- rep(LETTERS[1:4], 3), y <- letters[1:12], stringsAsFactors = FALSE)
colnames(junk) <- c("nm", "val")

junk$nm <- replace(junk$nm, junk$nm == "B", "b")
junk
#    nm val
# 1   A   a
# 2   b   b
# 3   C   c
# 4   D   d
# ...

stata.replace<-function(data,replacevar,replacevalue,ifs) {
  ifs=parse(text=ifs)
  yy=as.numeric(eval(ifs,data,parent.frame()))
  x=sum(yy)
  data=cbind(data,yy)
  data[yy==1,replacevar]=replacevalue
  message=noquote(paste0(x, " replacement are made"))
  print(message)
  return(data[,1:(ncol(data)-1)])
}

Appelez cette fonction en utilisant la ligne ci-dessous.

d=stata.replace(d,"under20",1,"age<20")