Zastąp wartość w ramce danych na podstawie instrukcji warunkowej („if”)

W ramce danych R zakodowanej poniżej chciałbym zamienić wszystkie czasy, które B pojawiają się na b.

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

to zapewnia:

   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

Moja pierwsza próba polegała na użyciu a fori iftakich stwierdzeń:

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

ale jak na pewno widzisz, zastępuje to WSZYSTKIE wartości junk$nmz b. Rozumiem, dlaczego tak się dzieje, ale nie wydaje mi się, aby zastępował tylko te przypadki złomu $ nm, w których była pierwotna wartość B.

UWAGA: udało mi się rozwiązać problem, gsubale w interesie nauki RI nadal chciałbym wiedzieć, jak uzyskać moje oryginalne podejście do pracy (jeśli jest to możliwe)

Łatwiej przekonwertować nm na znaki, a następnie wprowadzić zmianę:

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

EDYCJA: A jeśli rzeczywiście musisz zachować nm jako czynniki, dodaj to na końcu:

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

kolejny przydatny sposób zastępowania wartości

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

Krótka odpowiedź brzmi:

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

Spójrz na wektory indeksu w Wprowadzenie do języka R (jeśli jeszcze tego nie czytałeś).

EDYTOWAĆ. Jak zauważono w komentarzach, to rozwiązanie działa dla wektorów znaków, więc nie działa na danych.

Najlepszym sposobem jest zmiana poziomu:

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

Ponieważ dane, które pokazujesz, są czynnikami, komplikuje to trochę sprawę. Odpowiedź @ diliopa rozwiązuje problem, przekształcając nmją w zmienną znakową . Aby wrócić do pierwotnych czynników, wymagany jest kolejny krok.

Alternatywą jest manipulowanie istniejącymi poziomami czynnika.

> 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

Jest to dość proste i często zapominam, że istnieje funkcja zastępująca levels().

Edycja: jak zauważył @Seth w komentarzach, można to zrobić w jednej linijce, bez utraty przejrzystości:

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

Najłatwiej to zrobić w jednym poleceniu, używając whichpolecenia, a także nie trzeba zmieniać współczynników na charakter, wykonując następujące czynności:

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

Utworzyłeś zmienną czynnikową w programie, nmwięc musisz albo tego unikać, albo dodać dodatkowy poziom do atrybutów współczynnika. Należy również unikać używania <-w argumentach funkcji data.frame ()

Opcja 1:

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

Opcja 2:

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

Jeśli pracujesz ze zmiennymi znakowymi (zwróć uwagę, że stringsAsFactorstutaj jest fałsz), możesz użyć zamiany:

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

Wywołaj tę funkcję za pomocą poniższej linii.

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