如何根据R中的成对比较制作矩阵？

Question

我有一个非常简单的问题，但我不知道如何格式化应该用于形成成对矩阵的数据。我尝试的每种类型的数据形成都没有结果。我有一个 csv 文件，其中包含个人之间的比较列表，并希望使用 R 将其转换为矩阵。这些列是下面示例的扩展。

   id1         id2        r-values

   Amy         Katie        0.5

column <-read.table("list-r-values.csv", header = TRUE, sep = ",", check.names = FALSE)


sample1<- column$id1
sample2<- column$id2
rvalues<- column$`r-values`
d <- as.data.frame(cbind(sample1, sample2, rvalues))
str(d)

b<-data.matrix(d, rownames.force = NA)

我也尝试了其他几个代码，我只是好奇将 csv 文件放入数据框是否是合适的第一步？

我不知道如何从列表和列中获取输出并使其成为成对矩阵

Answer 1

在基础 R 中使用 xtabs() 函数的解决方案。

# generate random data
set.seed(314)
df <- data.frame(id1 = sample(letters, size=5, replace=T))
df$id2 <- sample(letters, size=5, replace=T)
df$r.values <- runif(n=5)

# function to return pairwise matrix
xtabs(r.values ~ id1 + id2, data=df)

   id2
id1          b          f          l          m          v
  c 0.00000000 0.00000000 0.00000000 0.51988234 0.39122631
  g 0.00000000 0.03852331 0.00000000 0.00000000 0.00000000
  n 0.50505545 0.00000000 0.00000000 0.00000000 0.00000000
  t 0.00000000 0.00000000 0.72206577 0.00000000 0.00000000