```r
set.seed(2016)

a <- grid::arrow(type = "closed", length = unit(.15, "inches"))

ggraph(bigram_graph, layout = "fr") +
  geom_edge_link(aes(edge_alpha = n), show.legend = FALSE,
                 arrow = a, end_cap = circle(.07, 'inches')) +
  geom_node_point(color = "lightblue", size = 5) +
  geom_node_text(aes(label = name), vjust = 1, hjust = 1) +
  theme_void()
```

<div class="figure">
<img src="04-word-combinations_files/figure-html/bigramggraphausten2-1.png" alt="Common bigrams in Jane Austen's novels, with some polishing" width="1152" />
<p class="caption">(\#fig:bigramggraphausten2)Common bigrams in Jane Austen's novels, with some polishing</p>
</div>