Sostituisci un valore in un data frame in base a un'istruzione condizionale ("if")

Nel frame di dati R codificato per sotto, vorrei sostituire tutte le volte che B appare con b.

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

questo fornisce:

   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

Il mio primo tentativo è stato quello di utilizzare le istruzioni fore in questo ifmodo:

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

ma come sono sicuro puoi vedere, questo sostituisce TUTTI i valori di junk$nmcon b. Posso capire perché questo sta facendo questo, ma non riesco a convincerlo a sostituire solo quei casi di spazzatura $ nm in cui era il valore originale B.

NOTA: sono riuscito a risolvere il problema gsubma nell'interesse di apprendere il RI vorrei ancora sapere come far funzionare il mio approccio originale (se possibile)

Più facile convertire nm in caratteri e quindi apportare la modifica:

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

EDIT: E se davvero hai bisogno di mantenere nm come fattori, aggiungi questo alla fine:

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

un altro modo utile per sostituire i valori

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

La risposta breve è:

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

Dai un'occhiata ai vettori indice in R Introduzione (se non l'hai ancora letto).

MODIFICARE. Come notato nei commenti, questa soluzione funziona per i vettori di caratteri, quindi fallisci sui tuoi dati.

Per il fattore il modo migliore è cambiare il livello:

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

Poiché i dati che mostri sono fattori, complica un po 'le cose. La risposta di @ diliop affronta il problema convertendola nmin una variabile carattere. Per tornare ai fattori originali è necessario un ulteriore passaggio.

Un'alternativa è manipolare i livelli del fattore in atto.

> 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

È abbastanza semplice e spesso dimentico che esiste una funzione sostitutiva per levels().

Modifica: come notato da @Seth nei commenti, questo può essere fatto in una riga, senza perdita di chiarezza:

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

Il modo più semplice per farlo in un comando è usare il whichcomando e inoltre non è necessario modificare i fattori in carattere facendo questo:

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

Hai creato una variabile fattore in nmquindi devi evitare di farlo o aggiungere un livello aggiuntivo agli attributi del fattore. Dovresti anche evitare di usare <-negli argomenti di data.frame ()

Opzione 1:

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

Opzione 2:

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

Se stai lavorando con variabili carattere (nota che stringsAsFactorsqui è falso) puoi usare sostituisci:

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

Chiama questa funzione usando la riga sottostante.

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