Ersetzen Sie einen Wert in einem Datenrahmen basierend auf einer bedingten (`if`) Anweisung

In dem unten codierten R-Datenrahmen möchte ich alle Zeiten ersetzen, die durch B angezeigt werden b.

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

Dies bietet:

   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

Mein erster Versuch war, a forund ifAnweisungen wie folgt zu verwenden:

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

Aber wie Sie sicher sehen können, ersetzt dies ALLE Werte von junk$nmdurch b. Ich kann sehen, warum dies so ist, aber ich kann nicht scheinen, dass es nur die Fälle von Junk $ nm ersetzt, in denen der ursprüngliche Wert war B.

HINWEIS: Ich habe es geschafft, das Problem mit zu lösen, gsubaber im Interesse des Lernens möchte RI immer noch wissen, wie ich meinen ursprünglichen Ansatz zum Arbeiten bringen kann (wenn es möglich ist).

Einfacher, nm in Zeichen umzuwandeln und dann die Änderung vorzunehmen:

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

EDIT: Und wenn Sie tatsächlich nm als Faktoren beibehalten müssen, fügen Sie dies am Ende hinzu:

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

Ein weiterer nützlicher Weg, um Werte zu ersetzen

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

Kurze Antwort lautet:

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

Schauen Sie sich die Indexvektoren in R Einführung an (falls Sie sie noch nicht gelesen haben).

BEARBEITEN. Wie in den Kommentaren erwähnt, funktioniert diese Lösung für Zeichenvektoren, sodass Ihre Daten nicht funktionieren.

Für Faktor ist der beste Weg, das Level zu ändern:

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

Da die von Ihnen angezeigten Daten Faktoren sind, erschwert dies die Dinge ein wenig. Die Antwort von @ diliop nähert sich dem Problem, indem sie nmin eine Zeichenvariable konvertiert . Um zu den ursprünglichen Faktoren zurückzukehren, ist ein weiterer Schritt erforderlich.

Eine Alternative besteht darin, die Ebenen des vorhandenen Faktors zu manipulieren.

> 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

Das ist ganz einfach und ich vergesse oft, dass es eine Ersatzfunktion für gibt levels().

Bearbeiten: Wie von @Seth in den Kommentaren angegeben, kann dies in einem Einzeiler ohne Verlust der Klarheit erfolgen:

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

Der einfachste Weg, dies in einem Befehl zu tun, besteht darin, einen Befehl zu verwenden whichund die Faktoren auf diese Weise nicht in Zeichen umzuwandeln:

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

Sie haben eine Faktorvariable in erstellt, nmsodass Sie dies entweder vermeiden oder den Faktorattributen eine zusätzliche Ebene hinzufügen müssen. Sie sollten auch vermeiden, <-in den Argumenten zu data.frame () zu verwenden.

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

Wenn Sie mit Zeichenvariablen arbeiten (beachten Sie, dass dies stringsAsFactorshier falsch ist), können Sie replace verwenden:

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

Rufen Sie diese Funktion über die folgende Zeile auf.

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