example of ggraph usage

example_ggraph.R

df <- read_csv("http://datadryad.org/bitstream/handle/10255/dryad.152300/forDryad.csv?sequence=1")
df %<>% unite(uni, source, target)

edges <- df %>% 
  group_by(uni) %>%
  count %>% 
  separate(col = "uni", into = c("source", "target"), sep = "_")
edges <- rename(edges, number = n)

net <-graph_from_data_frame(edges)
V(net)$in_degree <- igraph::degree(net, mode = 'in')


ggraph(net, layout = 'linear', circular = T) + 
  geom_node_text(aes(label = name), repel = T, size = 3) +
  geom_node_point(aes(size = in_degree)) +
  geom_edge_fan(show.legend = F, arrow = arrow(length = unit(4, 'mm')), 
                end_cap = circle(3, 'mm'),
                aes(alpha = number)) +
  theme_void()