# NOT RUN {
library(akc)
# }
# NOT RUN {
bibli_data_table %>%
keyword_clean(id = "id",keyword = "keyword") %>%
keyword_group(id = "id",keyword = "keyword") %>%
keyword_network()
# without facet
bibli_data_table %>%
keyword_clean(id = "id",keyword = "keyword") %>%
keyword_group(id = "id",keyword = "keyword") %>%
keyword_network(facet = FALSE)
# get Group 5
bibli_data_table %>%
keyword_clean(id = "id",keyword = "keyword") %>%
keyword_group(id = "id",keyword = "keyword") %>%
keyword_network(group_no = 5)
# }
Run the code above in your browser using DataLab