1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
## ---- include=FALSE-----------------------------------------------------------
library(ggraph)
set_graph_style(family = 'Arial', size = 7, foreground = 'lightgrey', plot_margin = margin(0, 0, 0, 0))
set.seed(2022)
## ---- message=FALSE-----------------------------------------------------------
library(tidygraph)
graph <- as_tbl_graph(
data.frame(
from = sample(5, 20, TRUE),
to = sample(5, 20, TRUE),
weight = runif(20)
)
)
graph
## ---- eval=FALSE--------------------------------------------------------------
# ggraph(graph, layout = 'fr', weights = "weight") +
# geom_edge_link() +
# geom_node_point()
## -----------------------------------------------------------------------------
ggraph(graph, layout = 'fr', weights = weight) +
geom_edge_link() +
geom_node_point()
## -----------------------------------------------------------------------------
ggraph(graph, layout = 'fr', weights = exp(weight)) +
geom_edge_link() +
geom_node_point()
## -----------------------------------------------------------------------------
graph <- create_notable('zachary')
ggraph(graph, layout = 'fr') +
geom_edge_link() +
geom_node_point(aes(size = centrality_pagerank())) +
theme(legend.position = 'bottom')
## ---- message=FALSE-----------------------------------------------------------
ggraph(graph, 'matrix', sort.by = node_rank_leafsort()) +
geom_edge_point(aes(colour = centrality_edge_betweenness()), mirror = TRUE) +
theme(legend.position = 'bottom')
## -----------------------------------------------------------------------------
ggraph(graph, 'fr') +
geom_edge_link() +
geom_node_point() +
facet_nodes(~ group_infomap())
|
