Description Usage Arguments Examples
Registers can link to each other either by a field with the "register"
property, or via CURIEs. See rr_key_links()
and rr_curie_links()
for
more about that. rr_links()
returns a data frame of edges.
1 | rr_links(x)
|
x |
Object of class |
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 | sg <- rr_register("statistical-geography")
rr_links(sg)
allergen <- rr_register("allergen")
rr_links(allergen)
registers <- rr_registers()
rr_links(registers)
if (require(tidygraph) && require(ggraph)) {
rr_register("statistical-geography") %>%
rr_links() %>%
as_tbl_graph() %>%
ggraph(layout = "nicely") +
geom_edge_fan(aes(alpha = ..index..), show.legend = FALSE) +
geom_edge_loop() +
geom_node_label(aes(label = name)) +
theme_void()
edge_arrow <- arrow(length = unit(4, "mm"), type = "closed")
registers %>%
rr_links() %>%
dplyr::distinct(from, to, type) %>%
as_tbl_graph() %>%
ggraph(layout = "nicely") +
geom_node_point() +
geom_edge_fan(aes(colour = type),
arrow = edge_arrow,
end_cap = circle(2, 'mm')) +
geom_edge_loop(aes(colour = type),
arrow = edge_arrow,
end_cap = circle(2, 'mm')) +
geom_node_label(aes(label = name), repel = TRUE, alpha = .5) +
theme_void()
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.