Veri çerçevesindeki bir değeri koşullu ("if") ifadesine göre değiştirin

Aşağıda kodlanmış R veri çerçevesinde, B görünen tüm zamanları ile değiştirmek istiyorum b.

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

bu şunları sağlar:

   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

İlk denemem şu şekilde a forve ififadelerini kullanmaktı :

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

Ben eminim ama, TÜM değerleri bu yerini alır görebilirsiniz junk$nmile b. Bunun neden bunu yaptığını anlayabiliyorum ama onu yalnızca orijinal değerin olduğu önemsiz $ nm durumlarının yerini alacak gibi görünmüyorum B.

NOT: Problemi çözmeyi başardım, gsubancak UR'yi öğrenmek için hala orijinal yaklaşımımı nasıl çalıştıracağımı bilmek istiyorum (eğer mümkünse)

Nm'yi karakterlere dönüştürmek daha kolaydır ve ardından değişikliği yapın:

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

DÜZENLEME: Ve gerçekten de nm'yi faktör olarak tutmanız gerekiyorsa, sonuna şunu ekleyin:

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

değerleri değiştirmenin başka bir kullanışlı yolu

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

Kısa cevap:

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

R Giriş bölümündeki İndeks vektörlerine bir göz atın (henüz okumadıysanız).

DÜZENLE. Yorumlarda belirtildiği gibi, bu çözüm karakter vektörleri için işe yarıyor, bu nedenle verilerinizde başarısız oluyor.

Faktör için en iyi yol, seviyeyi değiştirmektir:

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

Gösterdiğiniz veriler faktör olduğundan, işleri biraz karmaşıklaştırır. @ diliop'un Cevabı soruna nmbir karakter değişkenine dönüştürerek yaklaşır . Orijinal faktörlere geri dönmek için daha ileri bir adım gereklidir.

Bir alternatif, yerinde faktör seviyelerini manipüle etmektir.

> 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

Bu oldukça basit ve sık sık bunun için bir değiştirme işlevi olduğunu unutuyorum levels().

Düzenleme: @Seth tarafından yorumlarda belirtildiği gibi, bu, netlik kaybı olmadan tek satırda yapılabilir:

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

Bunu tek bir komutta yapmanın en kolay yolu, komutu kullanmaktır whichve bunu yaparak faktörleri karaktere dönüştürmek zorunda kalmamaktır:

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

İçinde bir faktör değişkeni oluşturdunuz, nmbu nedenle ya bundan kaçınmanız ya da faktör özelliklerine ek bir seviye eklemeniz gerekir. <-Data.frame () argümanlarında kullanmaktan da kaçınmalısınız.

Seçenek 1:

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

Seçenek 2:

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

Karakter değişkenleriyle çalışıyorsanız ( stringsAsFactorsburada bunun yanlış olduğuna dikkat edin ), değiştirmeyi kullanabilirsiniz:

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

Aşağıdaki satırı kullanarak bu işlevi çağırın.

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