# NOT RUN {
# 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()
# }
Run the code above in your browser using DataLab