图形的边被错误地创建

Question

我已经从语料库创建了术语文档矩阵：

x  <-  TermDocumentMatrix (corpus ) 
Then I created a matrix:
Matrix <- as.matrix ( x )
Matrix [ Matrix >=1 ] <- 1
Matrix <- tcrossprod ( Matrix )

作为输出： `

                     Terms
              Terms  best  love fun don’t games
               best   31     0   1    2     0
               love    0     48  1    2     6
               fun     1     1   39   1     1
               dont    2     2   1   46     7
               games   0     6   1    7     54

然后我创建了一个图表：

G <- graph.adjacency(Matrix, mode = "directed", weighted = TRUE)

然后使用STR函数查看图对象结构，结果如下：

Str(G)
    IGRAPH DNW- 25 452 -- 
    + attr: name (v/c), weight (e/n)
    + edges (vertex names):
    1 -> 3, 4, 6, 7, 8, 11, 14, 15, 20, 21, 23, 24
    2 -> 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 24, 25
    3 -> 1, 2, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 24, 25
    4 -> 1, 2, 3, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 21,       
    5 -> 2, 3, 4, 7, 8, 9, 10, 11, 12, 13, 14, 17, 18, 20, 21, 22, 23, 24, 25

问题是“+边（顶点名称）”。我想要的是下面我为不同问题创建的图表的结果。

IGRAPH DNW- 20 31 -- 
+ attr: name (v/c), weight (e/n)
+ edges (vertex names):
[1] 1 ->2  1 ->3  1 ->5  2 ->4 
[5] 2 ->5  3 ->6  3 ->9  4 ->8 
[9] 5 ->7  5 ->20 6 ->9  7 ->8 
[13] 7 ->9  8 ->9  9 ->10 10->11
[17] 10->15 20->1  11->12 11->13

Answer 1

我认为您面临的问题是您尝试创建的图形本质上是无向的。此外，在创建您的问题时（现在比第一次发布时好多了，谢谢）提供代码来重新创建您用作示例的数据非常好。我在这里提供了一种方法作为模型：

m <- read.table(header=F, text="
31    0   1    2     0
0     48  1    2     6
1     1   39   1     1
2     2   1   46     7
0     6   1    7     54
")

m <- as.matrix(m)
n <- c("best", "love", "fun", "don't", "games")
rownames(m) <- n
colnames(m) <- n


library(igraph)

##  Create graph from adjacency matrix as an "undirected" graph:
g <- graph.adjacency(m, mode = "undirected", weighted = TRUE)

plot.igraph(g,
  vertex.label=V(g)$name,
  vertex.size=80,
  vertex.color="lightgreen",
  vertex.label.cex=1.0,
  vertex.label.color="black",
  vertex.label.family="sans",
  edge.color="black",
  edge.width=sqrt(E(g)$weight)
)

以及生成的图形对象的结构：

> E(g)
Edge sequence:

[1]  best  -- best 
[2]  fun   -- best 
[3]  don't -- best 
[4]  love  -- love 
[5]  fun   -- love 
[6]  don't -- love 
[7]  games -- love 
[8]  fun   -- fun  
[9]  don't -- fun  
[10] games -- fun  
[11] don't -- don't
[12] games -- don't
[13] games -- games

图形的边被错误地创建

Edges of the graph being created incorrectly

r

igraph