Substitua um valor em um quadro de dados com base em uma instrução condicional (`if`)

No quadro de dados R codificado abaixo, gostaria de substituir todas as vezes que B aparecerem b.

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

isso fornece:

   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

Minha tentativa inicial foi usar as instruções a fore ifassim:

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

mas como tenho certeza de que você pode ver, isso substitui TODOS os valores de junk$nmcom b. Eu posso ver por que isso está fazendo isso, mas não consigo substituí-lo apenas nos casos de lixo eletrônico $ nm onde o valor original estava B.

NOTA: Consegui resolver o problema, gsubmas com o interesse de aprender, o RI ainda gostaria de saber como obter minha abordagem original para o trabalho (se possível)

Mais fácil converter nm em caracteres e depois fazer a alteração:

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

EDIT: E se você realmente precisa manter nm como fatores, adicione isso no final:

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

outra maneira útil de substituir valores

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

Resposta curta é:

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

Dê uma olhada nos vetores Index na Introdução R (se você ainda não o leu).

EDITAR. Conforme observado nos comentários, esta solução funciona para vetores de caracteres, portanto falhe em seus dados.

Para fator melhor maneira é mudar de nível:

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

Como os dados que você mostra são fatores, isso complica um pouco as coisas. A resposta de @ diliop aborda o problema convertendo nmpara uma variável de caractere. Para voltar aos fatores originais, é necessária uma etapa adicional.

Uma alternativa é manipular os níveis do fator em vigor.

> 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

Isso é bastante simples e muitas vezes esqueço que existe uma função de substituição para levels().

Edit: Como observado por @Seth nos comentários, isso pode ser feito em uma linha, sem perda de clareza:

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

A maneira mais fácil de fazer isso em um comando é usar o whichcomando e também não precisar alterar os fatores em caracteres, fazendo o seguinte:

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

Você criou uma variável de fator nmpara evitar evitar isso ou adicionar um nível adicional aos atributos do fator. Você também deve evitar usar <-os argumentos para data.frame ()

Opção 1:

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

Opção 2:

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

Se você estiver trabalhando com variáveis ​​de caractere (observe que stringsAsFactorsé falso aqui), poderá usar 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)])
}

Chame esta função usando a linha abaixo.

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