แทนที่ค่าในกรอบข้อมูลตามคำสั่งเงื่อนไข ("ถ้า")

ในกรอบ R ข้อมูลรหัสสำหรับด้านล่างผมอยากจะเปลี่ยนทุกครั้งที่ปรากฏขึ้นพร้อมกับ B b

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

สิ่งนี้ให้:

   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

ความพยายามครั้งแรกของฉันคือใช้ a forand ifstatement ดังนี้:

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

แต่ในฐานะที่ผมมั่นใจว่าคุณสามารถดูนี้แทนที่ของค่าของกับjunk$nm bฉันสามารถดูว่าทำไมถึงทำเช่นนี้ แต่ฉันไม่สามารถดูเหมือนจะได้รับมันจะเปลี่ยนเฉพาะกรณีดังกล่าวของขยะ $ Bนาโนเมตรที่ค่าเดิมคือ

หมายเหตุ: ฉันสามารถแก้ปัญหาได้gsubแต่เพื่อความสนใจในการเรียนรู้ RI ยังคงต้องการทราบวิธีการใช้งานแนวทางเดิมของฉัน (ถ้าเป็นไปได้)

แปลงนาโนเมตรเป็นอักขระได้ง่ายขึ้นจากนั้นทำการเปลี่ยนแปลง:

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

แก้ไข: และหากคุณต้องการรักษา nm เป็นปัจจัยให้เพิ่มสิ่งนี้ในตอนท้าย:

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

อีกวิธีหนึ่งที่มีประโยชน์ในการแทนที่ค่า

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

คำตอบสั้น ๆ คือ:

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

ดูเวกเตอร์ดัชนีใน R บทนำ (ถ้าคุณยังไม่ได้อ่าน)

แก้ไข ดังที่สังเกตเห็นในความคิดเห็นโซลูชันนี้ใช้ได้กับเวกเตอร์อักขระจึงล้มเหลวในข้อมูลของคุณ

สำหรับปัจจัยวิธีที่ดีที่สุดคือการเปลี่ยนระดับ:

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

เนื่องจากข้อมูลที่คุณแสดงเป็นปัจจัยจึงทำให้สิ่งต่างๆซับซ้อนขึ้นเล็กน้อย คำตอบของ @ diliop เข้าใกล้ปัญหาโดยการแปลงnmเป็นตัวแปรอักขระ ในการกลับไปที่ปัจจัยเดิมจำเป็นต้องมีขั้นตอนต่อไป

อีกทางเลือกหนึ่งคือการปรับเปลี่ยนระดับของปัจจัยในสถานที่

> 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

มันค่อนข้างง่ายและฉันมักลืมว่ามีฟังก์ชันทดแทนสำหรับlevels().

แก้ไข:ตามที่ระบุไว้โดย @Seth ในความคิดเห็นสิ่งนี้สามารถทำได้ในซับเดียวโดยไม่สูญเสียความชัดเจน:

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

วิธีที่ง่ายที่สุดในการทำสิ่งนี้ในคำสั่งเดียวคือการใช้whichคำสั่งและไม่จำเป็นต้องเปลี่ยนปัจจัยเป็นอักขระโดยทำสิ่งนี้:

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

คุณได้สร้างตัวแปรแฟคเตอร์nmดังนั้นคุณต้องหลีกเลี่ยงการทำเช่นนั้นหรือเพิ่มระดับเพิ่มเติมให้กับแอตทริบิวต์ปัจจัย คุณควรหลีกเลี่ยงการใช้<-ในอาร์กิวเมนต์ data.frame ()

ตัวเลือกที่ 1:

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

ทางเลือกที่ 2:

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

หากคุณกำลังทำงานกับตัวแปรอักขระ (โปรดทราบว่าstringsAsFactorsเป็นเท็จที่นี่) คุณสามารถใช้การแทนที่:

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

เรียกใช้ฟังก์ชันนี้โดยใช้บรรทัดด้านล่าง

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