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
52
53
54
55
56
|
## ----include=FALSE------------------------------------------------------------
set.seed(2022)
## ----message=FALSE------------------------------------------------------------
library(ggraph)
library(tidygraph)
set_graph_style(plot_margin = margin(1,1,1,1))
gr <- as_tbl_graph(highschool)
ggraph(gr, layout = 'kk') +
geom_point(aes(x = x, y = y))
## -----------------------------------------------------------------------------
head(create_layout(gr, layout = 'kk'))
## -----------------------------------------------------------------------------
ggraph(gr, layout = 'kk') +
geom_node_point()
## -----------------------------------------------------------------------------
gr <- tbl_graph(flare$vertices, flare$edges)
ggraph(gr, layout = 'partition') +
geom_node_tile(aes(y = -y, fill = depth))
## -----------------------------------------------------------------------------
ggraph(gr, layout = 'dendrogram', circular = TRUE) +
geom_edge_diagonal() +
geom_node_point(aes(filter = leaf)) +
coord_fixed()
## -----------------------------------------------------------------------------
graph <- create_notable('meredith') |>
mutate(group = sample(c('A', 'B'), n(), TRUE))
ggraph(graph, 'stress') +
geom_node_voronoi(aes(fill = group), max.radius = 1) +
geom_node_point() +
geom_edge_link() +
coord_fixed()
## -----------------------------------------------------------------------------
ggraph(gr, layout = 'treemap', weight = size) +
geom_node_tile(aes(fill = depth))
## -----------------------------------------------------------------------------
l <- ggraph(gr, layout = 'partition', circular = TRUE)
l + geom_node_arc_bar(aes(fill = depth)) +
coord_fixed()
## -----------------------------------------------------------------------------
l + geom_edge_diagonal() +
geom_node_point(aes(colour = depth)) +
coord_fixed()
|
