将非对称矩阵转换为方矩阵

Question

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

我想将此数据帧转换为R中的方阵，但此刻我非常迷茫。理想情况下，我希望结果看起来像这样，以便可以在其他应用程序中使用它。 （注意：这只是具有超过50列的真实df的一部分）。 我希望有人能帮帮忙。谢谢！

Answer 1

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

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