Rで文字列を置換する際に条件分岐で行いたい

アンケート調査を行っており、回答を処理しやすい形に置換しようとしております。
具体的には質問項目が「とても当てはまる」「少し当てはまる」「どちらでもない」「あまり当てはまらない」「まったく当てはまらない」のアンケート回答の内、「とても当てはまる」「少し当てはまる」を"positive"、「あまり当てはまらない」「まったく当てはまらない」を"negative"、「どちらでもない」を"none"の文字列に置換したいと考えています。

調べてみたところ文字列を置換する関数にはgsubなどがあるらしく、それを使って試してみたのですが*1、上述のような結果は得られませんでした。

そこで条件分岐を利用できたらと思ったのですが、if文やifelseをどのように組み込めばいいのかが分からず（これまで一回も使ったことがありませんでした）、調べてみても条件分岐を利用した文字列置換の方法が見つかりませんでした。

ご回答していただけると幸いです。
(条件分岐を使わなくてもできる方法がありましたらそちらでも問題ありません。)
よろしくお願いします。

*1
例えば
gsub(c("とても当てはまる","少し当てはまる"),"positive",test6)
gsub("とても当てはまる"|"少し当てはまる","positive",test6)
(test6はオブジェクト名)
などとやってみたのですが、いずれも「少し当てはまる」が変換されず、そもそも「どちらでもない」「あまり当てはまらない」「まったく当てはまらない」を置換するコードになっていませんでした

行動規範の内容に同意します

回答1件

ベストアンサー

条件判定式をごちゃごちゃ書くより「表引き」にしたほうがいいと思います。
以下のスクリプトでは、ベクトル型のオブジェクトanswerに元データが入っているものと仮定して、これをカテゴリー名に置き換えたオブジェクトanswer2を作っています。

前後の処理にもよりますが、おそらくデータはデータフレームで管理したほうがいいかもしれません。
ここでは判りやすさを重視して少し冗長な書き方をしてみました。

R
1#カテゴリー定義を表形式(matrix)で作っておく
2category <- matrix(c(
3 "とても当てはまる",    "positive",
4 "少し当てはまる",     "positive",
5 "あまり当てはまらない",  "negative",
6 "まったく当てはまらない", "negative",
7 "どちらでもない",       "none"
8 ), byrow=T, ncol=2
9)
10colnames(category) <- c("text","label")
11
12answer <- c(
13 "とても当てはまる",
14 "どちらでもない",
15 "あまり当てはまらない",
16 "あまり当てはまらない",
17 "とても当てはまる",
18 "どちらでもない",
19 "とても当てはまる",
20 "あまり当てはまらない",
21 "とても当てはまる",
22 "まったく当てはまらない",
23 "とても当てはまる",
24 "少し当てはまる"
25)
26answer2 <- c()
27
28#ラベル置換とその確認
29for(i in 1:length(answer)){
30  label <- as.character(category[category[,"text"]==answer[i], "label"])
31  print(
32    sprintf(
33      "%d: %s is %s", i, answer[i], label
34    )
35  )
36  answer2[i] <- label
37}
38
39#最終結果を出力してみる
40print(answer)
41print(answer2)