Plot a network of bigrams

Plot a network of bigrams

plot_bigrams_network(bigrams_table)

Arguments

tfidf_ngrams	A data frame from calc_bigrams_network.

Value

A ggraph (ggraph::ggraph) network of bigrams.

Examples

library(experienceAnalysis)
books <- janeaustenr::austen_books() # Jane Austen books
emma <- paste(books[books$book == "Emma", ], collapse = " ") # String with whole book
pp <- paste(books[books$book == "Pride & Prejudice", ], collapse = " ") # String with whole book

# Make data frame with books Emma and Pride & Prejudice
x <- data.frame(
  text = c(emma, pp),
  book = c("Emma", "Pride & Prejudice")
)

# Bigrams for Emma
calc_bigrams_network(x, target_col_name = "book", text_col_name = "text",
                     filter_class = "Emma", bigrams_prop = 3) %>%
    plot_bigrams_network()