创建图形时保持关联矩阵的行名称

Question

我有一个关联矩阵，它表示事件（行）的时间顺序列表：1, 2, 3, 4, 5，以及在这些事件（列）中遇到的人员列表：A, B, C, D, E。

我按照以下步骤创建了一个图表，其中每条边指示一对人是否遇到过：

library(igraph)    
incidence.matrix <- matrix(c(1,0,1,0,1,
                             1,0,0,0,1,
                             0,1,0,1,0,
                             1,1,0,0,0,
                             0,0,1,0,1),
                           nrow=5,
                           ncol=5)
colnames(incidence.matrix) <- c("A","B","C","D","E")
rownames(incidence.matrix) <- c("1","2","3","4","5")
bg <- graph.incidence(incidence.matrix)
g <- bipartite.projection(bg)
g <- g$proj2
plot(g)

但是按照这种方法，我失去了两个人见面时的信息。

我如何继续将此信息作为顶点的属性嵌入？