回答編集履歴
1
微修正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
各列をベクトルとして扱い、sapply
|
|
1
|
+
各列をベクトルとして扱い、sapplyを適用して一括変換すると良いでしょう。
|
|
2
2
|
|
|
3
3
|
下の例では、例題の内容をデータフレームxxに取りこみ、1列目をコード化して4列目に、2列目をコード化して5列目に、それぞれ付け加えています。
|
|
4
4
|
|
|
@@ -8,9 +8,9 @@
|
|
|
8
8
|
|
|
9
9
|
category <- matrix(c(
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
"男", "1",
|
|
12
12
|
|
|
13
|
-
|
|
13
|
+
"女", "2",
|
|
14
14
|
|
|
15
15
|
"とても当てはまる", "positive",
|
|
16
16
|
|
|
@@ -54,9 +54,9 @@
|
|
|
54
54
|
|
|
55
55
|
#変換
|
|
56
56
|
|
|
57
|
-
xx[,4] <-
|
|
57
|
+
xx[,4] <- sapply(xx[,1], cat_no)
|
|
58
58
|
|
|
59
|
-
xx[,5] <-
|
|
59
|
+
xx[,5] <- sapply(xx[,2], cat_no)
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|