使用R qdapTools将数据帧转换为带有rownames的二进制矩阵

Question

我有一个2列df并希望将其转换为二进制矩阵。正如这里建议的那样 - Convert 2 column dataframe into completed binary matrix，我尝试使用 -

library(qdapTools)

X <- t(mtabulate(lapply(split(df$V2, df$V1), `:`, length(unique(df$V2)))))

它按照我的意愿工作，但我无法打印行名称。

输入 -

Gene  Patient

Gene1 1

Gene2 2

输出 -

Gene1 Gene2

0      1

1      1

期望的输出 -

Patient Gene1 Gene2

1       0      1

2       1      1