network &lt;- graph_from_data_frame(wordnetwork)
ggraph(wordnetwork, layout = <span class="hljs-string">"fr"</span>) +
  geom_edge_link(aes(width = cooc, edge_alpha = cooc), edge_colour = <span class="hljs-string">"pink"</span>)  +
  geom_node_text(aes(label = name), col = <span class="hljs-string">"darkgreen"</span>, size = <span class="hljs-number">4</span>) +
  theme_graph(base_family = <span class="hljs-string">"Arial Narrow"</span>) +
  labs(title = <span class="hljs-string">"Words in topic 1 "</span>,