将非对称矩阵转换为方阵

Question

我有一个看起来像这样的非对称数据框：

我想将此数据帧转换为 R 中的方阵。理想情况下，我希望结果看起来像这样，以便可以在其他应用程序中使用它。 （注意：这只是具有超过 50 列的真实 df 的片段）。

Answer 1

根据示例，我们可以遍历不是第一列的列，然后执行== ，使用+转换为二进制并更新数据集列

df1[-1] <- lapply(df1[-1], function(x) +(df1[[1]] %in% x & !is.na(x)))