# NOT RUN {
# Return a network plot
g2g_data %>% network_g2g()
# Return a network plot - Meeting hours and 5% threshold
g2g_data %>%
network_g2g(time_investor = "TimeInvestors_Organization",
collaborator = "Collaborators_Organization",
metric = "Meeting_hours",
exc_threshold = 0.05)
# Return a network plot with circle layout
# Vary node colours and add org sizes
org_tb <- hrvar_count(
sq_data,
hrvar = "Organization",
return = "table"
)
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