data(synonym)
synonym <- unescape_utf(synonym)
data(neko_mecab)
neko_mecab <-
neko_mecab |>
unescape_utf() |>
add_sentence_no() |>
clean_up(use_common_data = TRUE, synonym_df = synonym)
bigram_neko <-
neko_mecab |>
draw_bigram_network()
add_stop_words <-
c("\\u3042\\u308b", "\\u3059\\u308b", "\\u3066\\u308b",
"\\u3044\\u308b","\\u306e", "\\u306a\\u308b", "\\u304a\\u308b",
"\\u3093", "\\u308c\\u308b", "*") |>
unescape_utf()
data(review_chamame)
bigram_review <-
review_chamame |>
dplyr::slice(1:2000) |>
unescape_utf() |>
add_sentence_no() |>
clean_up(add_stop_words = add_stop_words) |>
draw_bigram_network()