# Return a network plot
g2g_data %>% network_g2g()
# Return a network plot - Meeting hours and 5% threshold
network_g2g(
data = g2g_data,
primary = "PrimaryCollaborator_Organization",
secondary = "SecondaryCollaborator_Organization",
exc_threshold = 0.05
)
# Return a network plot - custom-specific colours
# Get labels of orgs and assign random colours
org_str <- unique(g2g_data$PrimaryCollaborator_Organization)
col_str <-
sample(
x = heat_colours(n = length(org_str)), # generate colour codes for each one
size = length(org_str),
replace = TRUE
)
# Create and supply a named vector to `node_colour`
names(col_str) <- org_str
g2g_data %>%
network_g2g(node_colour = col_str)
# Return a network plot with circle layout
# Vary node colours and add org sizes
org_tb <-
data.frame(
Organization = c(
"G&A East",
"G&A West",
"G&A North",
"South Sales",
"North Sales",
"G&A South"
),
n = sample(30:1000, size = 6)
)
g2g_data %>%
network_g2g(algorithm = "circle",
node_colour = "vary",
org_count = org_tb)
# Return an interaction matrix
# Minimum arguments specified
g2g_data %>%
network_g2g(return = "table")
Run the code above in your browser using DataLab