将个人响应数据框转换为 r 中的团队级数据框

Question

我有以下数据框：

> team_1_A
  MemberA Q1 Q2
1      C  2  3
2      B  3  4
> team_1_B
  MemberB Q1 Q2
1      A  5  4
2      C  5  2
> team_1_C
  MemberC Q1 Q2
1      A  2  5
2      B  5  5

这些数据框对应于个人对团队成员看法的反应。例如，第一个数据框是团队成员 A（在团队 1 中）如何看待问题 1 和 2（Q1 和 Q2）的团队成员 B 和 C。我的目标是自动化一个流程，将这些数据框从个人响应转换为每个问题的团队级数据框，以便为这些数据框获得什么：

> T1Q1
  X A B C
1 A 0 3 2
2 B 5 0 5
3 C 2 5 0
> T1Q2
  X A B C
1 A 0 3 2
2 B 5 0 5
3 C 2 5 0

因此，0 沿对角线出现，并且逐行是每个成员针对给定问题对对方的评价。例如，在第 1 行的T1Q1 中，我们看到了 A 对 B 和 C 的看法。

Answer 1

reshape2 包将使您轻松完成这项任务：

rm(list=ls())

library(reshape2)

team_1_A <- data.frame(MemberA=c('C', 'B'), Q1=c(2,3), Q2=c(3,4))
team_1_B <- data.frame(MemberB=c('A', 'C'), Q1=c(5,5), Q2=c(4,2))
team_1_C <- data.frame(MemberC=c('A', 'B'), Q1=c(2,5), Q2=c(5,5))

# store data frames in a list
members <- list(team_1_A, team_1_B, team_1_C)

# format rows/columns
formatted <- lapply(members, function(m){
    m$Respondent <- gsub('Member', '', names(m)[1])
    names(m)[1] <- 'TeamMate'
    return(m)
})
formatted <- do.call('rbind', formatted)

# separate questions into different data frames
questionList <- lapply(c(1,2), function(q) formatted[,c('Respondent', 'TeamMate', paste0('Q',q))])

# reshape, ensure order is correct
questionList <- lapply(questionList, function(q) {
    q <- dcast(q, Respondent ~ TeamMate)
    q <- q[,c('Respondent', 'A', 'B', 'C')]
    return(q)
})
names(questionList) <- c('T1Q1', 'T1Q2')

# replace NA with 0
# etc...
questionList
$T1Q1
  Respondent  A  B  C
1          A NA  3  2
2          B  5 NA  5
3          C  2  5 NA

$T1Q2
  Respondent  A  B  C
1          A NA  4  3
2          B  4 NA  2
3          C  5  5 NA