R 第1列'；s和0'；s表示个人'；一系列备选方案的选择？

我正在尝试将数据设置为在R中的mlogit包中工作

我使用以下代码创建了一个数据帧：

id <- 1:10
id <- rep(id, each=5)
site <- c("site1", "site2", "site3", "site4", "site5")
choice <- c("site3", "site5", "site1", "site4", "site2",
            "site4", "site3", "site5", "site2", "site1")
df <- cbind(id, site)

我已经尝试过很多次了，但我无法找到答案，也无法在网上找到相关答案

---

提前感谢：）

我们可以

按“id”拆分“site”，并使用
Map
通过与“choice”中的相应值进行比较来获得逻辑索引

df$indicator <- +(unlist(Map(`==`, split(df$site, df$id), choice), use.names=FALSE))

数据
df按照Akrun的建议，使用
data.frame
定义df：

df <- data.frame(id, site)

如果您想要字符串而不是数字或因子，请在要使用给定矩阵（df）转换的列上使用
作为.character
，指标可以计算为：

indicator <- as.numeric(choice[as.numeric(df[,"id"])] == df[,"site"])
# Final matrix 
df <- cbind(df,indicator)

df <- data.frame(id, site)

df <- data.frame(id, site)

df$indicator <- (df$site == choice[df$id])*1

   id  site indicator
1   1 site1         0
2   1 site2         0
3   1 site3         1
4   1 site4         0
5   1 site5         0
6   2 site1         0
7   2 site2         0
8   2 site3         0
9   2 site4         0
10  2 site5         1
11  3 site1         1
12  3 site2         0
13  3 site3         0
14  3 site4         0
15  3 site5         0
16  4 site1         0
17  4 site2         0
18  4 site3         0
19  4 site4         1
20  4 site5         0
21  5 site1         0
22  5 site2         1
23  5 site3         0
24  5 site4         0
25  5 site5         0
26  6 site1         0
27  6 site2         0
28  6 site3         0
29  6 site4         1
30  6 site5         0
31  7 site1         0
32  7 site2         0
33  7 site3         1
34  7 site4         0
35  7 site5         0
36  8 site1         0
37  8 site2         0
38  8 site3         0
39  8 site4         0
40  8 site5         1
41  9 site1         0
42  9 site2         1
43  9 site3         0
44  9 site4         0
45  9 site5         0
46 10 site1         1
47 10 site2         0
48 10 site3         0
49 10 site4         0
50 10 site5         0

indicator <- as.numeric(choice[as.numeric(df[,"id"])] == df[,"site"])
# Final matrix 
df <- cbind(df,indicator)

id   site    indicator
 [1,] "1"  "site1" "0"      
 [2,] "1"  "site2" "0"      
 [3,] "1"  "site3" "1"      
 [4,] "1"  "site4" "0"      
 [5,] "1"  "site5" "0"      
 [6,] "2"  "site1" "0"      
 [7,] "2"  "site2" "0"      
 [8,] "2"  "site3" "0"      
 [9,] "2"  "site4" "0"      
[10,] "2"  "site5" "1"      
[11,] "3"  "site1" "1"      
[12,] "3"  "site2" "0"      
[13,] "3"  "site3" "0"      
[14,] "3"  "site4" "0"      
[15,] "3"  "site5" "0"      
[16,] "4"  "site1" "0"      
[17,] "4"  "site2" "0"      
[18,] "4"  "site3" "0"      
[19,] "4"  "site4" "1"      
[20,] "4"  "site5" "0"      
[21,] "5"  "site1" "0"      
[22,] "5"  "site2" "1"      
[23,] "5"  "site3" "0"      
[24,] "5"  "site4" "0"      
[25,] "5"  "site5" "0"      
[26,] "6"  "site1" "0"      
[27,] "6"  "site2" "0"      
[28,] "6"  "site3" "0"      
[29,] "6"  "site4" "1"      
[30,] "6"  "site5" "0"      
[31,] "7"  "site1" "0"      
[32,] "7"  "site2" "0"      
[33,] "7"  "site3" "1"      
[34,] "7"  "site4" "0"      
[35,] "7"  "site5" "0"      
[36,] "8"  "site1" "0"      
[37,] "8"  "site2" "0"      
[38,] "8"  "site3" "0"      
[39,] "8"  "site4" "0"      
[40,] "8"  "site5" "1"      
[41,] "9"  "site1" "0"      
[42,] "9"  "site2" "1"      
[43,] "9"  "site3" "0"      
[44,] "9"  "site4" "0"      
[45,] "9"  "site5" "0"      
[46,] "10" "site1" "1"      
[47,] "10" "site2" "0"      
[48,] "10" "site3" "0"      
[49,] "10" "site4" "0"      
[50,] "10" "site5" "0"