“After the feedback about this homework, I hopefully fixed my dataset. A tie now consists of a Justice and the school they attened and every school they have hired a clerk from. This solved my issue from before where there was limited connections.
My results were chaotic involving the entire history of Justices. I decided to focus on the current Justices on the Supreme Court. Further, I thought it would be interesting to split up and compare networks of conservative and liberal Justices(based on the party of the appointing president).”
“Network graph for liberal Justices”
“Network graph for conservative Justices.”
“Leading Eigenvector Community Detection: Liberal”
$`1`
[1] "Stephen Breyer" "Boston University" "Boston College"
[4] "Duke" "Georgia" "GW"
[7] "North Carolina" "Virginia" "Yale"
$`2`
[1] "Elena Kagan" "Kentaji Brown Jackson"
[3] "Berkeley" "Harvard"
[5] "Stanford"
$`3`
[1] "Sonia Sotomayor" "Georgetown" "Michigan"
[4] "NYU" "UCLA" "Brooklyn"
[7] "Hawaii" "Cornell" "Northwestern"
[10] "Vanderbilt" "Texas"
$`4`
[1] "Chicago" "Columbia"
“Spinglass Community Detection: Liberal”
$`1`
[1] "Kentaji Brown Jackson" "Harvard"
$`2`
[1] "Elena Kagan" "Berkeley" "Chicago" "Columbia"
[5] "Georgetown" "Michigan" "Stanford"
$`3`
[1] "Sonia Sotomayor" "Duke" "Yale"
[4] "Brooklyn" "Hawaii" "Cornell"
[7] "Northwestern" "Vanderbilt" "Texas"
$`4`
[1] "Stephen Breyer" "Boston University" "Boston College"
[4] "Georgia" "GW" "North Carolina"
[7] "NYU" "UCLA" "Virginia"
“Spinglass Community Detection: Conservative”
$`1`
[1] "Samuel Alito" "BYU" "Duke" "Georgetown"
[5] "Ohio State" "Texas" "UCLA" "Vanderbilt"
$`2`
[1] "Neil Gorsuch" "Brett Kavanaugh" "Chicago"
[4] "Michigan" "NYU" "Yale"
[7] "Cornell" "Iowa" "Mississippi"
$`3`
[1] "Clarence Thomas" "Columbia" "Penn"
[4] "Berkeley" "Georgia" "Catholic"
[7] "Kansas" "North Carolina" "Seattle"
$`4`
[1] "John Roberts" "Amy Coney Barrett" "Harvard"
[4] "Stanford" "Virginia" "GW"
[7] "Northwestern" "Notre Dame" "yale"