0

次のデータを使用してグラフィックを作成します。

actors <- data.frame(name=c("Alice", "Bob", "Cecil",
                            "David","Esmeralda"),
                     age=c(48,33,45,34,21),
                     gender=c("F","M","F","M","F"))

relations <- data.frame(from=      c("Bob",   "Cecil", "Cecil", "David", 
                                     "David", "Esmeralda", "Alice"),
                        to=        c("Alice", "Bob",   "Alice", "Alice",
                                     "Bob",   "Alice",     "Bob"),
                        same.dept= c( FALSE,   FALSE,   TRUE,    FALSE,
                                      FALSE,   TRUE,        FALSE),
                        friendship=c( 4,       5,       5,       2,
                                      1,       1,           4), 
                        advice=    c( 4,       5,       5,       4,
                                      2,       3,           4))

g <- graph.data.frame(relations, directed=TRUE, vertices=actors)

plot(g, layout=layout.kamada.kawai)

頂点 "Alice" と "Bob" がグラフィックで双方向になっていることがわかります。

どの頂点が双方向であるかを確認したいだけですか? これどうやってするの？

どうもありがとう！

4

1 に答える 1

0

is.mutual()エッジがグラフ内で反対のエッジを持っているかどうかを示す which を使用できます。

is.mutual(g)
# [1]  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE

cbind(get.edgelist(g), is.mutual(g))
#      [,1]        [,2]    [,3]   
# [1,] "Bob"       "Alice" "TRUE" 
# [2,] "Cecil"     "Bob"   "FALSE"
# [3,] "Cecil"     "Alice" "FALSE"
# [4,] "David"     "Alice" "FALSE"
# [5,] "David"     "Bob"   "FALSE"
# [6,] "Esmeralda" "Alice" "FALSE"
# [7,] "Alice"     "Bob"   "TRUE"
于 2013-07-30T14:15:42.917 に答える