View source: R/geom_axis_hive.R
geom_axis_hive | R Documentation |
This function lets you annotate the axes in a hive plot with labels and color coded bars.
geom_axis_hive(
mapping = NULL,
data = NULL,
position = "identity",
label = TRUE,
axis = TRUE,
show.legend = NA,
...
)
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
position |
Position adjustment, either as a string naming the adjustment
(e.g. |
label |
Should the axes be labelled. Defaults to |
axis |
Should a rectangle be drawn along the axis. Defaults to |
show.legend |
logical. Should this layer be included in the legends?
|
... |
Other arguments passed on to |
geom_axis_hive understand the following aesthetics.
alpha
colour
fill
size
linetype
label_size
family
fontface
lineheight
Thomas Lin Pedersen
# Plot the flare import graph as a hive plot
library(tidygraph)
flareGr <- as_tbl_graph(flare$imports) %>%
mutate(
type = dplyr::case_when(
centrality_degree(mode = 'in') == 0 ~ 'Source',
centrality_degree(mode = 'out') == 0 ~ 'Sink',
TRUE ~ 'Both'
)
) %>%
activate(edges) %>%
mutate(
type = dplyr::case_when(
grepl('flare.analytics', paste(.N()$name[from], .N()$name[to])) ~ 'Analytics',
TRUE ~ 'Other'
)
)
ggraph(flareGr, 'hive', axis = type) +
geom_edge_hive(aes(colour = type), edge_alpha = 0.1) +
geom_axis_hive(aes(colour = type)) +
coord_fixed()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.