```r
library(ggraph)
set.seed(2017)

ggraph(bigram_graph, layout = "fr") +
  geom_edge_link() +
  geom_node_point() +
  geom_node_text(aes(label = name), vjust = 1, hjust = 1)
```

<div class="figure">
<img src="04-word-combinations_files/figure-epub3/bigramgraph-1.png" alt="Common bigrams in Jane Austen's novels, showing those that occurred more than 20 times and where neither word was a stop word"  />
<p class="caption">(\#fig:bigramgraph)Common bigrams in Jane Austen's novels, showing those that occurred more than 20 times and where neither word was a stop word</p>
</div>