Reemplazar un valor en un marco de datos basado en una declaración condicional (`if`)

En el marco de datos R codificado a continuación, me gustaría reemplazar todas las veces que B aparecen con b.

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

esto proporciona:

   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

Mi intento inicial fue usar declaraciones fory ifcomo esta:

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

pero como estoy seguro de que puede ver, esto reemplaza TODOS los valores de junk$nmwith b. Puedo ver por qué esto está haciendo esto, pero parece que no puedo lograr que reemplace solo aquellos casos de $ nm basura donde estaba el valor original B.

NOTA: Me las arreglé para resolver el problema con, gsubpero con el interés de aprender, RI aún me gustaría saber cómo hacer que mi enfoque original funcione (si es posible)

Más fácil convertir nm a caracteres y luego realizar el cambio:

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

EDITAR: Y si de hecho necesita mantener nm como factores, agregue esto al final:

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

otra forma útil de reemplazar valores

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

La respuesta corta es:

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

Eche un vistazo a los vectores de índice en la Introducción de R (si aún no lo ha leído).

EDITAR. Como se notó en los comentarios, esta solución funciona para vectores de caracteres, por lo que falla en sus datos.

Para el factor, la mejor manera es cambiar de nivel:

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

Como los datos que muestra son factores, complica un poco las cosas. La respuesta de @ diliop aborda el problema convirtiendo nma una variable de carácter. Para volver a los factores originales se requiere un paso más.

Una alternativa es manipular los niveles del factor en su lugar.

> 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

Eso es bastante simple y a menudo olvido que hay una función de reemplazo para levels().

Editar: como señaló @Seth en los comentarios, esto se puede hacer en una sola línea, sin pérdida de claridad:

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

La forma más fácil de hacer esto en un comando es usar el whichcomando y tampoco es necesario cambiar los factores en caracteres haciendo esto:

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

Ha creado una variable de factor en, nmpor lo que debe evitar hacerlo o agregar un nivel adicional a los atributos de factor. También debe evitar el uso <-en los argumentos de data.frame ()

Opción 1:

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

Opcion 2:

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

Si está trabajando con variables de carácter (tenga en cuenta que stringsAsFactorsaquí es falso) puede usar reemplazar:

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)])
}

Llame a esta función usando la línea de abajo.

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