R 从非方矩阵创建邻接矩阵

我想从非方矩阵创建一个邻接矩阵。行和列都定义了不同的变量。在示例中，行表示唯一的基金，列表示唯一的公司

这段代码使用重复的值创建10x10矩阵，我想创建6x6矩阵，如下所示

    expand.matrix <- function(A){
      m <- nrow(A)
      n <- ncol(A)
      B <- matrix(0,nrow = m, ncol = m)
      C <- matrix(0,nrow = n, ncol = n)
      cbind(rbind(B,t(A)),rbind(A,C))
    }

df <- expand.matrix(dat)

---

expand.matrix我试图将数据集的原始类保留为table

#Code
dat <- t(dat)
dat <- cbind(dat,0,0,0)
colnames(dat) <- c('Fund1','Fund2','Fund3','4','5','6')

#代码
dat我试图将数据集的原始类保留为表

#Code
dat <- t(dat)
dat <- cbind(dat,0,0,0)
colnames(dat) <- c('Fund1','Fund2','Fund3','4','5','6')

#代码
dat