library(ggraph)
library(tidyverse)
library(sand)
library(tidygraph)
as_tbl_graph(fblog) -> fblog_gr

ggraph(fblog_gr, layout = "kk") + 
  geom_node_voronoi(aes(fill = PolParty), max.radius = 1) +
  geom_node_point(alpha = .4) + 
  geom_edge_link(alpha = .2) + 
  scale_fill_viridis_d() + 
  theme_graph(base_family =  "Sans")