Ganti nilai dalam bingkai data berdasarkan pernyataan kondisional (`if`)

Dalam bingkai data R yang dikodekan di bawah ini, saya ingin mengganti semua waktu yang B muncul dengan b.

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

ini memberikan:

   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

Upaya awal saya adalah menggunakan fordan ifpernyataan seperti ini:

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

tetapi seperti yang saya yakin Anda bisa lihat, ini menggantikan SEMUA nilai junk$nmdengan b. Saya dapat melihat mengapa ini melakukan ini tetapi saya tidak bisa mendapatkannya hanya untuk mengganti kasus sampah $ nm di mana nilai aslinya B.

CATATAN: Saya berhasil menyelesaikan masalah dengan gsubtetapi untuk kepentingan belajar RI masih ingin tahu bagaimana cara mendapatkan pendekatan asli saya untuk bekerja (jika memungkinkan)

Lebih mudah untuk mengubah nm menjadi karakter dan kemudian melakukan perubahan:

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

EDIT: Dan jika memang Anda perlu mempertahankan nm sebagai faktor, tambahkan ini pada akhirnya:

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

cara lain yang berguna untuk mengganti nilai

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

Jawaban singkatnya adalah:

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

Lihatlah vektor Indeks dalam Pendahuluan R (jika Anda belum membacanya).

EDIT. Seperti yang diperhatikan dalam komentar, solusi ini berfungsi untuk vektor karakter jadi gagal pada data Anda.

Untuk faktor cara terbaik adalah dengan mengubah level:

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

Karena data yang Anda tunjukkan adalah faktor, itu sedikit memperumit masalah. Jawaban @ diliop mendekati masalah dengan mengubahnya nmmenjadi variabel karakter. Untuk kembali ke faktor awal diperlukan langkah lebih lanjut.

Alternatifnya adalah memanipulasi level faktor yang ada.

> 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

Itu cukup sederhana dan saya sering lupa bahwa ada fungsi pengganti untuk levels().

Edit: Seperti dicatat oleh @Seth di komentar, ini dapat dilakukan dalam satu baris, tanpa kehilangan kejelasan:

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

Cara termudah untuk melakukan ini dalam satu perintah adalah dengan menggunakan whichperintah dan juga tidak perlu mengubah faktor menjadi karakter dengan melakukan ini:

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

Anda telah membuat variabel faktor nmsehingga Anda perlu menghindarinya atau menambahkan level tambahan ke atribut faktor. Anda juga harus menghindari penggunaan <-dalam argumen ke data.frame ()

Pilihan 1:

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

Pilihan 2:

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

Jika Anda bekerja dengan variabel karakter (perhatikan yang stringsAsFactorssalah di sini) Anda dapat menggunakan 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)])
}

Panggil fungsi ini menggunakan baris di bawah ini.

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