《权力的游戏》关系网络分析——基于 tidygraph 和 ggraph

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

! 本文摘自 Shirin's playgRound ! 本文仅为自译转载，任何观点都不代表个人观点！

---

不久之前，我曾经做过一个关于冰与火之歌人物关系的图谱分析。在这个分析中，我发现史塔克家族（尤其是Ned 和三傻[皮一下很开心]）和兰尼斯特家族（尤其是Tyrion)，是权利的游戏中，最主要的家族连接点。他们连接着很多故事线，也是整个故事的中心点。
在之前的 PO 文中，我使用了 igraphl 来描绘和计算关系矩阵。
但是现在有两个更好的包可以完成整个关系分析： tidyverse: tidygraph 和 ggraph。

所以这篇文章将使用这两个包来制作 冰与火之歌/权利的游戏 的任务关系分析图。（内容基于冰与火这个著作而非电视节目）


社会关系分析 或者社会网络分析能带来什么？

---

---

关系分析能发现和挖掘社会或者专业领域社交网络中的关系。我们通常会问：

• 每个网络中的人（节点）有多少关系连接（边）？
• 谁是连接数最多（最重要，最有影响力）的人？
• 紧密联系的人是否导致大的集群的存在？
• 是否有关键人物在集群之间拥有重要作用？
  

这些问题的答案通常可以帮助我们理解，人类是怎么在社会中交流和互动。
所以，我们怎么才能找到在网络中最重要的角色？简单来说，当一个人拥有最多关系或最多与之相连的人的时候，其重要性不言则明。同时也有一些其他的属性可以帮助我们寻找这些关键人物，例如节点中心度(node centrality).





冰与火之歌角色关系图

1. library(readr)     # fast reading of csv files
   
2. library(tidyverse) # tidy data analysis
   
3. library(tidygraph) # tidy graph analysis
   
4. library(ggraph)    # for plotting

复制代码

数据

---

---

数据来源于 Github Repository，Andrew Beveridge:

Character Interaction Networks for George R. R. Martin’s “A Song of Ice and Fire” saga These networks were created by connecting two characters whenever their names (or nicknames) appeared within 15 words of one another in one of the books in “A Song of Ice and Fire.” The edge weight corresponds to the number of interactions. You can use this data to explore the dynamics of the Seven Kingdoms using network science techniques. For example, community detection finds coherent plotlines. Centrality measures uncover the multiple ways in which characters play important roles in the saga.

Andrew 已经做过一个关于冰与火之歌角色关系的分析，如果你感兴趣，也可以去他的网站浏览他的结论[color=rgb(63, 63, 63) !important]https://networkofthrones.wordpress.com
这里我不想复制他的分析，而是希望展示如何使用 tidygraph 和 ggraph。所以我并不会完全使用他的数据。

1. path <- "/Users/shiringlander/Documents/Github/Data/asoiaf/data/"
   
2. files <- list.files(path = path, full.names = TRUE)
   
3. files
   
4. ##  [1] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-all-edges.csv"   
   
5. ##  [2] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-all-nodes.csv"   
   
6. ##  [3] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book1-edges.csv"
   
7. ##  [4] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book1-nodes.csv"
   
8. ##  [5] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book2-edges.csv"
   
9. ##  [6] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book2-nodes.csv"
   
10. ##  [7] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book3-edges.csv"
    
11. ##  [8] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book3-nodes.csv"
    
12. ##  [9] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book4-edges.csv"
    
13. ## [10] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book4-nodes.csv"
    
14. ## [11] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book45-edges.csv"
    
15. ## [12] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book45-nodes.csv"
    
16. ## [13] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book5-edges.csv"
    
17. ## [14] "/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book5-nodes.csv"

复制代码

全书角色

---

首先要使用的是全书角色互动关系的数据。这里我不打算使用节点的数据，因为我发现关系（edge）的名称标记已经足够用来标注。当然，如果你希望使用更好的名词标识，可以使用节点数据。

1. cooc_all_edges <- read_csv(files[1])

复制代码

因为书中有太多角色，而且很多都是小角色，所以我抽出前100位互动关系较多的角色。关系都是无向关系，所以没有冗余的Source-Target combination

1. main_ch <- cooc_all_edges %>%
   
2.   select(-Type) %>%
   
3.   gather(x, name, Source:Target) %>%
   
4.   group_by(name) %>%
   
5.   summarise(sum_weight = sum(weight)) %>%
   
6.   ungroup()
   
7. 
   
8. main_ch_l <- main_ch %>%
   
9.   arrange(desc(sum_weight)) %>%
   
10.   top_n(100, sum_weight)
    
11. main_ch_l
    
12. ## # A tibble: 100 x 2
    
13. ##    name               sum_weight
    
14. ##                       
    
15. ##  1 Tyrion-Lannister         2873
    
16. ##  2 Jon-Snow                 2757
    
17. ##  3 Cersei-Lannister         2232
    
18. ##  4 Joffrey-Baratheon        1762
    
19. ##  5 Eddard-Stark             1649
    
20. ##  6 Daenerys-Targaryen       1608
    
21. ##  7 Jaime-Lannister          1569
    
22. ##  8 Sansa-Stark              1547
    
23. ##  9 Bran-Stark               1508
    
24. ## 10 Robert-Baratheon         1488
    
25. ## # ... with 90 more rows
    
26. cooc_all_f <- cooc_all_edges %>%
    
27.   filter(Source %in% main_ch_l$name & Target %in% main_ch_l$name)

复制代码

tidygraph 和 ggraph

---

两个工具包都来自于 Thomas Lin Pedersen：

With tidygraph I set out to make it easier to get your data into a graph and perform common transformations on it, but the aim has expanded since its inception. The goal of tidygraph is to empower the user to formulate complex questions regarding relational data as simple steps, thus enabling them to retrieve insights directly from the data itself. The central idea this all boils down to is this: you don’t have to plot a network to understand it. While I absolutely love the field of network visualisation, it is in many ways overused in data science — especially when it comes to extracting knowledge from a network. Just as you don’t need a plot to tell you which car in a dataset is the fastest, you don’t need a plot to tell you which pair of friends are the closest. What you do need, instead of a plot, is a tool that allow you to formulate your question into a logic sequence of operations. For many people in the world of rectangular data, this tool is increasingly dplyr (and friends), and I do hope that tidygraph can take on the same role in the world of relational data. https://www.data-imaginist.com/2018/tidygraph-1-1-a-tidy-hope/

首先，将边的表格转换为 tbl_graph 格式。这里使用 tidygrpah 中的as_tbl_graph()函数，其可以输入 data.frame,matrix,dendrogram,igraph,etc.

Underneath the hood of tidygraph lies the well-oiled machinery of igraph, ensuring efficient graph manipulation. Rather than keeping the node and edge data in a list and creating igraph objects on the fly when needed, tidygraph subclasses igraph with the tbl_graph class and simply exposes it in a tidy manner. This ensures that all your beloved algorithms that expects igraph objects still works with tbl_graph objects. Further, tidygraph is very careful not to override any of igraphs exports so the two packages can coexist quite happily. https://www.data-imaginist.com/2018/tidygraph-1-1-a-tidy-hope/

有很多 node ranking 的选择（可以去?node_rank查看详细列表）。我这里尝试TSP 解算器最小化哈密顿回路的方法 Minimize hamiltonian path length using a travelling salesperson solver):

1. as_tbl_graph(cooc_all_f, directed = FALSE) %>%
   
2.   activate(nodes) %>%
   
3.   mutate(n_rank_trv = node_rank_traveller()) %>%
   
4.   arrange(n_rank_trv)
   
5. ## # A tbl_graph: 100 nodes and 798 edges
   
6. ## #
   
7. ## # An undirected simple graph with 1 component
   
8. ## #
   
9. ## # Node Data: 100 x 2 (active)
   
10. ##   name                            n_rank_trv
    
11. ##                                   
    
12. ## 1 Janos-Slynt                              1
    
13. ## 2 Aemon-Targaryen-(Maester-Aemon)          2
    
14. ## 3 Jeor-Mormont                             3
    
15. ## 4 Samwell-Tarly                            4
    
16. ## 5 Qhorin-Halfhand                          5
    
17. ## 6 Ygritte                                  6
    
18. ## # ... with 94 more rows
    
19. ## #
    
20. ## # Edge Data: 798 x 5
    
21. ##    from    to Type          id weight
    
22. ##            
    
23. ## 1     2    75 Undirected    43      7
    
24. ## 2     2    76 Undirected    44      4
    
25. ## 3     2    73 Undirected    52      3
    
26. ## # ... with 795 more rows

复制代码

Centrality 中心度

---

中心度用来表示节点入度和出度的数量。高度中心化的网络中，且之有较少的节点拥有较大数量的边。低度中心化的网络中拥有较多的节点，同时节点度相对小而平均。而节点中心度衡量了节点在网络中的重要程度。

This version adds 19(!) new ways to define the notion of centrality along with a manual version where you can mix and match different distance measures and summation strategies opening up the world to even more centrality scores. All of this wealth of centrality comes from the netrankr package that provides a framework for defining and calculating centrality scores. If you use centrality measures somewhere in your analysis I cannot recommend the vignettes provided by netrankr enough as they provide a fundamental intuition about the nature of such measures and how they can/should be used. https://www.data-imaginist.com/2018/tidygraph-1-1-a-tidy-hope/

可以使用?centrality查看所有关于中心度计算的所有方法。 这里我们使用centrality_degree()。

1. ## # A tbl_graph: 100 nodes and 798 edges
   
2. ## #
   
3. ## # An undirected simple graph with 1 component
   
4. ## #
   
5. ## # Node Data: 100 x 2 (active)
   
6. ##   name              neighbors
   
7. ##                    
   
8. ## 1 Tyrion-Lannister        54.
   
9. ## 2 Cersei-Lannister        49.
   
10. ## 3 Joffrey-Baratheon       49.
    
11. ## 4 Robert-Baratheon        47.
    
12. ## 5 Jaime-Lannister         45.
    
13. ## 6 Sansa-Stark             44.
    
14. ## # ... with 94 more rows
    
15. ## #
    
16. ## # Edge Data: 798 x 5
    
17. ##    from    to Type          id weight
    
18. ##            
    
19. ## 1    41    42 Undirected    43      7
    
20. ## 2    41    60 Undirected    44      4
    
21. ## 3    41    63 Undirected    52      3
    
22. ## # ... with 795 more rows

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

组和聚类 Grouping and clustring

---

---

Another common operation is to group nodes based on the graph topology, sometimes referred to as community detection based on its commonality in social network analysis. All clustering algorithms from igraph is available in tidygraph using the group_* prefix. All of these functions return an integer vector with nodes (or edges) sharing the same integer being grouped together. https://www.data-imaginist.com/2017/introducing-tidygraph/

可以使用?group_graph查看所有分组和聚类的方法。这里我使用 group_infomap()：Group nodes by minimizing description length using.

1. as_tbl_graph(cooc_all_f, directed = FALSE) %>%
   
2.   activate(nodes) %>%
   
3.   mutate(group = group_infomap()) %>%
   
4.   arrange(-group)
   
5. ## # A tbl_graph: 100 nodes and 798 edges
   
6. ## #
   
7. ## # An undirected simple graph with 1 component
   
8. ## #
   
9. ## # Node Data: 100 x 2 (active)
   
10. ##   name              group
    
11. ##               
    
12. ## 1 Arianne-Martell       7
    
13. ## 2 Doran-Martell         7
    
14. ## 3 Davos-Seaworth        6
    
15. ## 4 Melisandre            6
    
16. ## 5 Selyse-Florent        6
    
17. ## 6 Stannis-Baratheon     6
    
18. ## # ... with 94 more rows
    
19. ## #
    
20. ## # Edge Data: 798 x 5
    
21. ##    from    to Type          id weight
    
22. ##            
    
23. ## 1    32    33 Undirected    43      7
    
24. ## 2    32    34 Undirected    44      4
    
25. ## 3    32    36 Undirected    52      3
    
26. ## # ... with 795 more rows

复制代码

查询节点类型（query node type）

---

我们也可以查询节点类型，使用?node_types 来查看所有内容。

These functions all lets the user query whether each node is of a certain type. All of the functions returns a logical vector indicating whether the node is of the type in question. Do note that the types are not mutually exclusive and that nodes can thus be of multiple types.

这里我使用 node_is_center 和 node_is_keyplayer 来查询图中前10名重要关键人物。 你也可以在 influenceR 包中找到更多关于 node_is_keyplayer 函数的内容。

The “Key Player” family of node importance algorithms (Borgatti 2006) involves the selection of a metric of node importance and a combinatorial optimization strategy to choose the set S of vertices of size k that maximize that metric. This function implements KPP-Pos, a metric intended to identify k nodes which optimize resource diffusion through the net … https://www.data-imaginist.com/2017/introducing-tidygraph/

1. as_tbl_graph(cooc_all_f, directed = FALSE) %>%
   
2.   activate(nodes) %>%
   
3.   mutate(dist_to_center = node_distance_to(node_is_center()))
   
4. ## # A tbl_graph: 100 nodes and 798 edges
   
5. ## #
   
6. ## # An undirected simple graph with 1 component
   
7. ## #
   
8. ## # Node Data: 100 x 2 (active)
   
9. ##   name                            dist_to_center
   
10. ##                                       
    
11. ## 1 Aemon-Targaryen-(Maester-Aemon)             1.
    
12. ## 2 Aeron-Greyjoy                               2.
    
13. ## 3 Aerys-II-Targaryen                          1.
    
14. ## 4 Alliser-Thorne                              1.
    
15. ## 5 Arianne-Martell                             2.
    
16. ## 6 Arya-Stark                                  1.
    
17. ## # ... with 94 more rows
    
18. ## #
    
19. ## # Edge Data: 798 x 5
    
20. ##    from    to Type          id weight
    
21. ##            
    
22. ## 1     1     4 Undirected    43      7
    
23. ## 2     1    13 Undirected    44      4
    
24. ## 3     1    28 Undirected    52      3
    
25. ## # ... with 795 more rows

复制代码

Edge betweeness

---

和节点的指标一样，边或者关系上，我们也可以获得很多指标。Betweeness 就是用来表示任意两个节点间最短路径的关系指标。[皮一下：小世界理论？]。tidygraph 中可以查看edge_type的详细内容

1. as_tbl_graph(cooc_all_f, directed = FALSE) %>%
   
2.   activate(edges) %>%
   
3.   mutate(centrality_e = centrality_edge_betweenness())
   
4. ## # A tbl_graph: 100 nodes and 798 edges
   
5. ## #
   
6. ## # An undirected simple graph with 1 component
   
7. ## #
   
8. ## # Edge Data: 798 x 6 (active)
   
9. ##    from    to Type          id weight centrality_e
   
10. ##                     
    
11. ## 1     1     4 Undirected    43      7         1.00
    
12. ## 2     1    13 Undirected    44      4        30.2
    
13. ## 3     1    28 Undirected    52      3        42.1
    
14. ## 4     1    32 Undirected    53     20         0.  
    
15. ## 5     1    34 Undirected    54      5        35.2
    
16. ## 6     1    41 Undirected    56      5        18.9
    
17. ## # ... with 792 more rows
    
18. ## #
    
19. ## # Node Data: 100 x 1
    
20. ##   name                           
    
21. ##                             
    
22. ## 1 Aemon-Targaryen-(Maester-Aemon)
    
23. ## 2 Aeron-Greyjoy                  
    
24. ## 3 Aerys-II-Targaryen            
    
25. ## # ... with 97 more rows

复制代码

完整的内容

---

让我们组合起来之前的东西：

1. cooc_all_f_graph <- as_tbl_graph(cooc_all_f, directed = FALSE) %>%
   
2.   mutate(n_rank_trv = node_rank_traveller(),
   
3.          neighbors = centrality_degree(),
   
4.          group = group_infomap(),
   
5.          center = node_is_center(),
   
6.          dist_to_center = node_distance_to(node_is_center()),
   
7.          keyplayer = node_is_keyplayer(k = 10)) %>%
   
8.   activate(edges) %>%
   
9.   filter(!edge_is_multiple()) %>%
   
10.   mutate(centrality_e = centrality_edge_betweenness())

复制代码

我们也可以将节点和边的表转换为tibble:

1. cooc_all_f_graph %>%
   
2.   activate(nodes) %>% # %N>%
   
3.   as.tibble()
   
4. ## # A tibble: 100 x 7
   
5. ##    name         n_rank_trv neighbors group center dist_to_center keyplayer
   
6. ##                                       
   
7. ##  1 Aemon-Targa…         45       13.     2 FALSE              1. FALSE   
   
8. ##  2 Aeron-Greyj…         21        5.     5 FALSE              2. FALSE   
   
9. ##  3 Aerys-II-Ta…         11       12.     1 FALSE              1. FALSE   
   
10. ##  4 Alliser-Tho…         48       13.     2 FALSE              1. FALSE   
    
11. ##  5 Arianne-Mar…         29        4.     7 FALSE              2. FALSE   
    
12. ##  6 Arya-Stark           79       37.     1 FALSE              1. FALSE   
    
13. ##  7 Asha-Greyjoy         20        7.     5 FALSE              1. FALSE   
    
14. ##  8 Balon-Greyj…         18       11.     5 FALSE              2. FALSE   
    
15. ##  9 Barristan-S…         54       23.     3 FALSE              1. FALSE   
    
16. ## 10 Belwas               52        6.     3 FALSE              2. FALSE   
    
17. ## # ... with 90 more rows
    
18. cooc_all_f_graph %>%
    
19.   activate(edges) %>% # %E>%
    
20.   as.tibble()
    
21. ## # A tibble: 798 x 6
    
22. ##     from    to Type          id weight centrality_e
    
23. ##                     
    
24. ##  1     1     4 Undirected    43      7         1.00
    
25. ##  2     1    13 Undirected    44      4        30.2
    
26. ##  3     1    28 Undirected    52      3        42.1
    
27. ##  4     1    32 Undirected    53     20         0.  
    
28. ##  5     1    34 Undirected    54      5        35.2
    
29. ##  6     1    41 Undirected    56      5        18.9
    
30. ##  7     1    42 Undirected    57     25         0.  
    
31. ##  8     1    48 Undirected    58    110         0.  
    
32. ##  9     1    58 Undirected    60      5        24.5
    
33. ## 10     1    71 Undirected    62      5        17.0
    
34. ## # ... with 788 more rows

复制代码

ggraph 画图

---

ggraph is an extension of ggplot2 aimed at supporting relational data structures such as networks, graphs, and trees. While it builds upon the foundation of ggplot2 and its API it comes with its own self-contained set of geoms, facets, etc., as well as adding the concept of layouts to the grammar. https://github.com/thomasp85/ggraph

首先，我需要定义 一层 layout, 有很多 options for layout,这里我要使用 Fruchterman-Reingold algorithm。

1. layout <- create_layout(cooc_all_f_graph,
   
2.                         layout = "fr")

复制代码

剩下的工作就比较类似于 ggplot2的函数，只不过我们会用到特殊的函数来绘制网络。比如 geom_edge_density 可以用来画高密度的阴影区域，geom_edge_lin 来连接节点，geom_node_point 来绘制节点，同时 geom_node_text 用来标注节点名称。 你也可以在手册中找到更详细的内容。

1. graph(layout) +
   
2.     geom_edge_density(aes(fill = weight)) +
   
3.     geom_edge_link(aes(width = weight), alpha = 0.2) +
   
4.     geom_node_point(aes(color = factor(group)), size = 10) +
   
5.     geom_node_text(aes(label = name), size = 8, repel = TRUE) +
   
6.     scale_color_brewer(palette = "Set1") +
   
7.     theme_graph() +
   
8.     labs(title = "A Song of Ice and Fire character network",
   
9.          subtitle = "Nodes are colored by group")

复制代码

Interestingly, many of the groups reflect the narrative perfectly: the men from the Night’s Watch are grouped together with the Wildlings, Stannis, Davos, Selyse and Melisandre form another group, the Greyjoys, Bran’s group in Winterfell before they left for the North, Dany and her squad and the Martells (except for Quentyn, who “belongs” to Dany – just like in the books ;-)). The big group around the remaining characters is the only one that’s not split up very well.



下图使用了 RColorBrewer palette “Set1”:

该图中我画出了最中心的人物，同时节点的大小表示各个节点到中心的距离。书中最重要的两个角色就是Robert 和 Tyrion. (马丁大爷反正说他最喜欢小恶魔【笑】）

各个书中的角色

---

后面该作者也做了各个书中的角色的网络图。

The second data set I am going to use is a comparison of character interactions in the five books.

A little node on the side: My original plan was to loop over the separate edge files for each book, concatenate them together with the information from which book they are and then plot them via faceting. This turned out to be a bad solution because I wanted to show the different key-players in each of the five books. So, instead of using one joined graph, I created separate graphs for every book and used the bind_graphs() and facet_nodes() functions to plot them together.

1. for (i in 1:5) {
   
2.   cooc <- read_csv(paste0("/Users/shiringlander/Documents/Github/Data/asoiaf/data//asoiaf-book", i, "-edges.csv")) %>%
   
3.     mutate(book = paste0("book_", i)) %>%
   
4.     filter(Source %in% main_ch_l$name & Target %in% main_ch_l$name)
   
5.   
   
6.   assign(paste0("coocs_book_", i), cooc)
   
7. }
   
8. The concepts are the same as above, here I want to know the key-players in each book:
   
9. 
   
10. cooc_books_1_graph <- as_tbl_graph(coocs_book_1, directed = FALSE) %>%
    
11.   mutate(book = "Book 1: A Game of Thrones",
    
12.          keyplayer = node_is_keyplayer(k = 10))
    
13. 
    
14. cooc_books_2_graph <- as_tbl_graph(coocs_book_2, directed = FALSE) %>%
    
15.   mutate(book = "Book 2: A Clash of Kings",
    
16.          keyplayer = node_is_keyplayer(k = 10))
    
17. 
    
18. cooc_books_3_graph <- as_tbl_graph(coocs_book_3, directed = FALSE) %>%
    
19.   mutate(book = "Book 3: A Storm of Swords",
    
20.          keyplayer = node_is_keyplayer(k = 10))
    
21. 
    
22. cooc_books_4_graph <- as_tbl_graph(coocs_book_4, directed = FALSE) %>%
    
23.   mutate(book = "Book 4: A Feast for Crows",
    
24.          keyplayer = node_is_keyplayer(k = 10))
    
25. 
    
26. cooc_books_5_graph <- as_tbl_graph(coocs_book_5, directed = FALSE) %>%
    
27.   mutate(book = "Book 5: A Dance with Dragons",
    
28.          keyplayer = node_is_keyplayer(k = 10))
    
29. And let’s combine and plot the key-players:
    
30. 
    
31. cooc_books_1_graph %>%
    
32.   bind_graphs(cooc_books_2_graph)  %>%
    
33.   bind_graphs(cooc_books_3_graph)  %>%
    
34.   bind_graphs(cooc_books_4_graph)  %>%
    
35.   bind_graphs(cooc_books_5_graph)  %>%
    
36.   ggraph(layout = "fr") +
    
37.     facet_nodes( ~ book, scales = "free", ncol = 1) +
    
38.     geom_edge_density(aes(fill = weight)) +
    
39.     geom_edge_link(aes(edge_width = weight), alpha = 0.2) +
    
40.     geom_node_point(aes(color = factor(keyplayer)), size = 3) +
    
41.     geom_node_text(aes(label = name), color = "black", size = 3, repel = TRUE) +
    
42.     theme_graph() +
    
43.     scale_colour_manual(values = c(cols[2], cols[1]))

复制代码

---

全文摘自： https://www.r-bloggers.com/another-game-of-thrones-network-analysis-this-time-with-tidygraph-and-ggraph/?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+RBloggers+%28R+bloggers%29

作者： Dr. Shirin Glander

仅做分享讨论

：）

---

非常棒的分享

cheetahfly 发表于 2018-3-6 21:53
非常棒的分享

谢谢.   R在图计算和图的可视化上真的是还不错的.