Thay thế một giá trị trong khung dữ liệu dựa trên câu lệnh có điều kiện (`if`)

Trong khung dữ liệu R được mã hóa cho bên dưới, tôi muốn thay thế tất cả thời gian B xuất hiện bằng b.

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

điều này cung cấp:

   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

Nỗ lực ban đầu của tôi là sử dụng a forvà các ifcâu lệnh như sau:

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

nhưng như tôi chắc chắn bạn có thể thấy, điều này thay thế TẤT CẢ các giá trị của junk$nmwith b. Tôi có thể hiểu lý do tại sao điều này đang làm điều này nhưng tôi dường như không thể làm cho nó chỉ thay thế những trường hợp $ nm rác có giá trị ban đầu B.

LƯU Ý: Tôi đã giải quyết được vấn đề gsubnhưng vì quan tâm đến việc học, RI vẫn muốn biết cách để cách tiếp cận ban đầu của tôi hoạt động (nếu có thể)

Dễ dàng chuyển đổi nm thành ký tự và sau đó thực hiện thay đổi:

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

CHỈNH SỬA: Và nếu thực sự bạn cần duy trì nm làm nhân tố, hãy thêm điều này vào cuối cùng:

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

một cách hữu ích khác để thay thế các giá trị

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

Câu trả lời ngắn gọn là:

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

Hãy xem các vectơ chỉ mục trong R Giới thiệu (nếu bạn chưa đọc nó).

BIÊN TẬP. Như đã nhận thấy trong các nhận xét, giải pháp này hoạt động đối với các vectơ ký tự nên không thành công trên dữ liệu của bạn.

Đối với yếu tố, cách tốt nhất là thay đổi cấp độ:

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

Vì dữ liệu bạn hiển thị là các yếu tố nên nó sẽ làm phức tạp mọi thứ một chút. Câu trả lời của @ diliop tiếp cận vấn đề bằng cách chuyển đổi nmthành một biến ký tự. Để quay lại các yếu tố ban đầu, cần phải thực hiện thêm một bước nữa.

Một giải pháp thay thế là thao tác các mức của yếu tố tại chỗ.

> 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

Điều đó khá đơn giản và tôi thường quên rằng có một chức năng thay thế cho levels().

Chỉnh sửa: Như đã lưu ý bởi @Seth trong phần nhận xét, điều này có thể được thực hiện trong một lớp lót mà không làm mất đi sự rõ ràng:

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

Cách dễ nhất để thực hiện việc này trong một lệnh là sử dụng whichlệnh và cũng không cần thay đổi các yếu tố thành ký tự bằng cách thực hiện điều này:

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

Bạn đã tạo một biến yếu tố, nmvì vậy bạn cần tránh làm như vậy hoặc thêm một cấp bổ sung vào thuộc tính yếu tố. Bạn cũng nên tránh sử dụng <-trong các đối số của data.frame ()

Lựa chọn 1:

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

Lựa chọn 2:

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

Nếu bạn đang làm việc với các biến ký tự (lưu ý stringsAsFactorslà sai ở đây), bạn có thể sử dụng thay thế:

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

Gọi hàm này bằng dòng dưới đây.

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