Question

我是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

谢谢！如果我的问题不明确，请告诉我。这是我的第一个问题。

Answer 1

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

下面的代码基本上为学生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])

Answer 2

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

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个studentID与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

如何将数据帧转换为R中的对数？

2 个答案: