根据条件语句（“ if”）替换数据框中的值

在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

我最初的尝试是使用forand if语句，如下所示：

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

但我相信你可以看到，这个替换所有的值junk$nm用b。我知道为什么这样做了，但是我似乎无法用它代替那些原来值为的junk $ nm情况B。

注意：我设法解决了问题，gsub但是为了学习RI，我仍然想知道如何使我的原始方法起作用（如果可能的话）

容易将nm转换为字符，然后进行更改：

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 Introduction中的Index vectors（如果您还没有阅读的话）。

编辑。正如评论中所注意到的，此解决方案适用于字符向量，因此对您的数据无效。

对于因素，最好的方法是更改​​级别：

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此处为假），则可以使用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)])
}

使用下面的行调用此函数。

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