egocentric cosponsorship networks in the French National Assembly

egocentric_plots.md

A few egocentric networks from this project.

example_code.r

library(network)
library(sna)

load("data/session14.rda")
u = ego.extract(net)

plot.ego <- function(u, deputes, x, ...) {
  n = network(u[[ which(names(u) == x) ]])
  n %v% "groupe" = deputes[ network.vertex.names(n), "groupe_sigle" ]
  n %v% "ego" = (network.vertex.names(n) == x)
  k = net %n% "colors"
  k = k [ which(names(net %n% "colors") %in% unique(n %v% "groupe")) ]
  ggnet(n, mode = "kamadakawai", node.group = n %v% "groupe", node.color = k, size = 4, weight = "none", 
        segment.color = "grey35", segment.alpha = .05, ...) +
    geom_point(color = k [ deputes[ x, "groupe_sigle" ] ], size = 8 * as.numeric(n %v% "ego")) +
    ggtitle(x) +
    guides(size = FALSE)
}

plot.ego("ISABELLE ATTARD")