-2

我是 R 的新手，我正在为班级做最后的作业。我在整理数据时遇到了一些问题。例如，我有这个数据框如下。

StudentId table_wk1 table_wk2 table_wk3
0034       1           1          2
0067       1           1          1
0098       1           2          2
0079       2           2          1

我想要实现的是把这个数据框变成下面的数组。每当两个学生选择同一张桌子时，他们之间就会有一个计数，所以它会像：

0034  0067  2
0034  0098  2
0034  0079  0
0067  0098  1
0067  0079  1
0098  0079  1

谢谢！请告诉我我的问题是否不清楚。这是我在这里的第一个问题。

4

2 回答 2

0

table_wk如果我正确理解您的请求，那么当两个学生 ID 之间的值相同时，计数就会开始。

下面的代码基本上为学生ID的组合创建了一个新的数据框（您也可以为此使用gtools或combinat打包），然后根据两个组合方面的比较来计算结果。

# Generate data
df <- data.frame(StudentId = c("0034", "0067", "0098", "0079"),
                 table_wk1 = c(1, 1, 1, 2),
                 table_wk2 = c(1, 1, 2, 2),
                 table_wk3 = c(2, 1, 2, 1),
                 stringsAsFactors = F)

# Process data
df2 <- as.data.frame(t(combn(df$StudentId, 2)), stringsAsFactors = F)
df2.1 <- merge(df2[-2], df, by.x = 'V1', by.y = 'StudentId', sort = F)
df2.2 <- merge(df2[-1], df, by.x = 'V2', by.y = 'StudentId', sort = F)
df2.2 <- df2.2[match(df2$V2, df2.2$V2),]  # Solve the sorting issue due to merge

# Create result
df2$Result <- rowSums(df2.1[-1] == df2.2[-1])
于 2016-05-12T05:56:58.783 回答
0

首先创建所有可能的学生组合

df$StudentId = as.character(df$StudentId) 
df_new=data.frame(t(combn(df$StudendId,2)))

> df_new
    X1   X2
 1 0034 0067
 2 0034 0098
 3 0034 0079
 4 0067 0098
 5 0067 0079
 6 0098 0079

现在，使用 apply 函数并遍历 df_new 中的每一行，将 2 个学生 ID 与 df 中的相应行匹配，并找出两行在哪些列中相等。

 df_new$Value_Count = apply(df_new,1, function(x) sum(df[df$StudendId == x[1],2:4] == df[df$StudendId == x[2],2:4]))


> df_new
   X1   X2   Value_Count
 1 0034 0067           2
 2 0034 0098           2
 3 0034 0079           0
 4 0067 0098           1
 5 0067 0079           1
 6 0098 0079           1
于 2016-05-12T06:02:01.077 回答