条件付き（ `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

私の最初の試みは、次のようなa forおよび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はじめにのインデックスベクトルを見てください（まだ読んでいない場合）。

編集。コメントで気づいたように、このソリューションは文字ベクトルに対して機能するため、データに失敗します。

要因としては、レベルを変更するのが最善の方法です。

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")

1つのコマンドでこれを行う最も簡単な方法は、コマンドを使用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ここではfalseであることに注意）、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")