Rでデータフレーム内の文字列を変換したい

Question

アンケート調査で集まったデータをRで扱えるように数字にコーディングしようとしているのですが、データフレーム内の文字列置換の方法がわかりません。
例えば以下のようなデータフレームがあるとします。

性別	Q1	Q2
男	とても当てはまる	はい
女	どちらでもない	（無回答）
男	とても当てはまる	いいえ

この際に性別列の”男”を1、"女"を2と変換する、Q1列の"とても当てはまる"を5,"どちらでもない"を3にするといった処理を行いたいです。
また、Q3列の無回答部分は空欄のままなのですが、ここは何も処理せずともNAとして認識されるのか、されないとしたらどのようにすればNAとして認識されるのかについてもお聞きしたいです（データ形式はcsv）

https://teratail.com/questions/99228
以前、ここでデータが一列のみの文字列置換はお聞きしたのですが、データフレームで管理する必要性が出てきたので質問させていただきました。

なにとぞよろしくお願いいたします。

Answer 1

各列をベクトルとして扱い、sapplyを適用して一括変換すると良いでしょう。
下の例では、例題の内容をデータフレームxxに取りこみ、1列目をコード化して4列目に、2列目をコード化して5列目に、それぞれ付け加えています。

# 変換表 
category <- matrix(c(
 "男", "1",
 "女", "2",
 "とても当てはまる",    "positive",
 "少し当てはまる",     "positive",
 "あまり当てはまらない",  "negative",
 "まったく当てはまらない", "negative",
 "どちらでもない",       "none"
 ), byrow=T, ncol=2
)
colnames(category) <- c("text","label")

# 変換関数: 文字列→コード 
cat_no <- function(x){
    r <- as.character(category[category[,"text"]==x, "label"])
    return(ifelse(length(r)==0, NA, r))
}

# データ入力  
xx <- read.csv("~/test.csv", header=T)
## 空欄をnaにしたい場合は次の様にする。 
## xx <- read.csv("~/test.csv", header=T, na.strings="")

#変換
xx[,4] <- sapply(xx[,1], cat_no)
xx[,5] <- sapply(xx[,2], cat_no)

print(xx)

Comments

[beij]

ご回答ありがとうございますm(_ _)m
こちらも試してみたところ、上手くいきました！
これで調査の分析もスムーズに行きそうです！