Как создать список ребер из Матрицы в R?
отношение выражается в виде матрицы x
такой:
A B C D
A 0 2 1 1
B 2 0 1 0
C 1 1 0 1
D 1 0 1 0
записи относятся к числу соединений, которые они имеют. Может ли кто-нибудь показать мне, как написать его как список edge? Спасибо! Я рассматриваю возможность написать его как список edge, например:
A B
A B
A C
A D
B C
но правильно ли этот список ребер, если я хочу создать сетевой участок? Спасибо!
3 ответов
С помощью igraph
пакет:
x <- matrix(c(0,2,1,1,2,0,1,0,1,1,0,1,1,0,1,0), 4, 4)
rownames(x) <- colnames(x) <- LETTERS[1:4]
library(igraph)
g <- graph.adjacency(x)
get.edgelist(g)
# [,1] [,2]
# [1,] "A" "B"
# [2,] "A" "B"
# [3,] "A" "C"
# [4,] "A" "D"
# [5,] "B" "A"
# [6,] "B" "A"
# [7,] "B" "C"
# [8,] "C" "A"
# [9,] "C" "B"
# [10,] "C" "D"
# [11,] "D" "A"
# [12,] "D" "C"
Я бы также рекомендовал вам потратить некоторое время на чтение igraph
документация на http://igraph.sourceforge.net/index.html так как многие из ваших последних вопросов все простые случаи использования.
(в качестве бонуса, plot(g)
отвечу на ваш другой вопрос как построить отношения в R?)
используя melt
на reshape2
, а затем удалите weight==0. если никакая потребность напечатать вес. просто удалите его.
x
sample1 sample2 sample3 sample4
feature1 0 2 1 1
feature2 2 0 1 0
feature3 1 1 0 1
feature4 1 0 1 0
melt(x)
Var1 Var2 value
1 feature1 sample1 0
2 feature2 sample1 2
3 feature3 sample1 1
4 feature4 sample1 1
5 feature1 sample2 2
попробуй такое
M <- matrix( c(0,2,1,1,2,0,1,0,1,1,0,1,1,0,1,0), 4, 4, dimnames=list(c("A","B","C","D"), c("A","B","C","D")))
eList <- NULL
for ( i in 1:nrow(M) ){
for ( j in 1:ncol(M)) {
eList <- c(eList, rep(paste(dimnames(M)[[1]][i], dimnames(M)[[2]][j] ), M[i,j]))
}
}
выход
> eList
[1] "A B" "A B" "A C" "A D" "B A" "B A" "B C" "C A" "C B" "C D" "D A" "D C"