R循环添加另一列而不是将其放下（Gephi导出）

本部分仅为示例

initmatrix <- matrix(c("A", "B", "C", "D", "E", "F", "G", "H", NA, NA, "I", NA, NA, NA, NA, "J", "K", "L", "M",NA ,"N" ,"O" ,"P" ,NA ,NA), nrow=5, ncol=5) 

initmatrix <- t(initmatrix)

---

有什么见解吗？谢谢

t（矩阵（elisttry，nrow=2））在你的周期结束后怎么样？哇，应该可以了。温文尔雅的瓦西里。谢谢

elisttry <- c()

for(i in 1:nrow(initmatrix)){
    temptry <- na.omit(as.character(initmatrix[i,]))
    #if necessary; check matrix for "NA"
    #temp <- temp[-which(temp == "NA")]
    if(length(temptry)>1){
        elisttry <- c(elisttry, combn(temptry,2))
    }
}

> elisttry
     [,1] [,2]
[1,] "A"  "B" 
[2,] "A"  "C" 
[3,] "A"  "D"