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.