> library(igraph)

Attaching package: ‘igraph’

The following object is masked from ‘package:tidyr’:

    crossing

The following objects are masked from ‘package:dplyr’:

    as_data_frame, groups, union

The following objects are masked from ‘package:stats’:

    decompose, spectrum

The following object is masked from ‘package:base’:

    union

> library(ggraph)
> bi_graph <- new_bi_grams %>%
+ filter (n>50) %>%
+ graph_from_data_frame()
> ggraph (bi_graph, layout = "fr")
> ggraph (bi_graph, layout = "fr")+
+ geom_edge_link()+
+ geom_node_point()+
+ geom_node_text (aes(label=name), vjust = 1, hjust = 1)
> 
