Network Analysis Workflow

[andrewallenbruce]

library(provider)
library(dplyr)
library(igraph)

southland <- provider:::georgia_reassignments() |> 
  filter(pac_org == "1153563770") |> 
  mutate(individual = stringr::str_glue("{first} {last}")) |> 
  select(organization, 
         individual,
         associations,
         entry)

#> # A tibble: 102 × 4
#>    organization       individual                associations entry       
#>    <chr>              <glue>                           <int> <chr>       
#>  1 SGMP SOUTHLAND LLC ASHLEY ABT                           8 Reassignment
#>  2 SGMP SOUTHLAND LLC OBIORA AGBIMSON                      2 Reassignment
#>  3 SGMP SOUTHLAND LLC CHARLES ALEXIS                       2 Reassignment
#>  4 SGMP SOUTHLAND LLC DENISE ATKINSON                      4 Reassignment
#>  5 SGMP SOUTHLAND LLC DANIEL AYERS                        11 Employment  
#>  6 SGMP SOUTHLAND LLC WAEL AZER                            9 Reassignment
#>  7 SGMP SOUTHLAND LLC JESSICA BATTLE                       4 Reassignment
#>  8 SGMP SOUTHLAND LLC ROBIN BELCHER-HOWARD                 4 Reassignment
#>  9 SGMP SOUTHLAND LLC ROSEMARY BERGERON JOHNSON            7 Employment  
#> 10 SGMP SOUTHLAND LLC REEMON BISHARA                       4 Reassignment
#> # ℹ 92 more rows

sthl_ig <- igraph::graph_from_data_frame(southland, directed = FALSE)

sthl_ig
#> IGRAPH aefd47e UN-- 103 102 -- 
#> + attr: name (v/c), associations (e/n), entry (e/c)
#> + edges from aefd47e (vertex names):
#>  [1] SGMP SOUTHLAND LLC--ASHLEY ABT               
#>  [2] SGMP SOUTHLAND LLC--OBIORA AGBIMSON          
#>  [3] SGMP SOUTHLAND LLC--CHARLES ALEXIS           
#>  [4] SGMP SOUTHLAND LLC--DENISE ATKINSON          
#>  [5] SGMP SOUTHLAND LLC--DANIEL AYERS             
#>  [6] SGMP SOUTHLAND LLC--WAEL AZER                
#>  [7] SGMP SOUTHLAND LLC--JESSICA BATTLE           
#>  [8] SGMP SOUTHLAND LLC--ROBIN BELCHER-HOWARD     
#> + ... omitted several edges

plot(southland_ig, 
     vertex.label.cex = 0.75, 
     vertex.size = 15, 
     vertex.color = "red", 
     vertex.frame.width = 2)

^{Created on 2023-11-01 with reprex v2.0.2}

[andrewallenbruce]

tidygraph + ggraph

[andrewallenbruce]

graph LR
  PAC --> NPI
  PAC --> ENID
  NPI --> ENID
  NPI --> PAC
  ENID --> PAC
  ENID --> NPI