library(igraph)
bi <- structure(list(term1 = c("classification", "regression", "model",
"learn", "model", "descent", "linear", "dimensional", "mining",
"network", "selection", "algorithm", "base", "forests", "forest",
"algorithm", "package", "framework", "classification", "algorithm",
"algorithm", "framework", "bayesian", "model", "analysis", "include",
"data", "random", "implementation", "selection", "data", "data",
"algorithm", "algorithm", "gradient", "data", "framework", "model",
"cognitive", "cognitive", "microsoft", "high", "algorithm", "include",
"fit", "interface", "partial", "log", "linear", "feed", "linear",
"frequency", "allocation", "rest", "random", "forest", "base",
"classification", "content", "corpora", "linear", "match", "data",
"distribution", "distribution", "topic", "allocation", "language",
"content", "file", "article", "convex", "fit", "group", "group",
"author", "source", "function", "function", "function", "distance",
"analysis", "model", "service", "article", "graph", "function",
"data", "data", "data"), term2 = c("regression", "tree", "topic",
"machine", "regression", "gradient", "model", "high", "text",
"neural", "variable", "base", "model", "random", "random", "learn",
"provide", "text", "tree", "use", "descent", "mining", "tree",
"use", "data", "model", "use", "use", "random", "use", "dimensional",
"high", "machine", "gradient", "stochastic", "set", "provide",
"multinomial", "microsoft", "service", "service", "model", "method",
"method", "model", "package", "plot", "multinomial", "log", "neural",
"multinomial", "word", "latent", "service", "tree", "implementation",
"distance", "learn", "text", "source", "path", "string", "frequency",
"frequency", "word", "topic", "model", "model", "file", "text",
"corpora", "convex", "path", "lasso", "method", "title", "title",
"sparse", "version", "string", "string", "include", "word", "text",
"lexisnexis", "represent", "object", "data", "graph", "represent"
), best_topic = c("10", "10", "12", "6", "10", "3", "1", "7",
"13", "11", "7", "1", "10", "8", "8", "3", "13", "13", "10",
"3", "3", "13", "10", "1", "1", "1", "1", "8", "8", "7", "7",
"7", "6", "3", "3", "14", "13", "11", "9", "9", "9", "7", "6",
"6", "4", "13", "12", "11", "11", "11", "11", "14", "12", "9",
"8", "8", "6", "6", "5", "5", "4", "15", "14", "14", "14", "12",
"12", "9", "5", "5", "5", "4", "4", "4", "4", "2", "2", "15",
"15", "15", "15", "14", "12", "9", "5", "2", "15", "2", "2",
"2"), cooc = c(38L, 27L, 22L, 21L, 19L, 18L, 18L, 17L, 15L, 15L,
14L, 14L, 13L, 12L, 12L, 11L, 11L, 11L, 11L, 9L, 9L, 9L, 9L,
9L, 8L, 8L, 8L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 6L,
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 5L, 5L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L,
1L, 1L, 1L), select = c(1L, 2L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 1L,
2L, 2L, 4L, 1L, 2L, 2L, 2L, 3L, 5L, 3L, 4L, 4L, 6L, 3L, 4L, 5L,
6L, 3L, 4L, 3L, 4L, 5L, 2L, 5L, 6L, 1L, 5L, 2L, 1L, 2L, 3L, 6L,
3L, 4L, 1L, 6L, 2L, 3L, 4L, 5L, 6L, 2L, 3L, 4L, 5L, 6L, 5L, 6L,
1L, 2L, 2L, 1L, 3L, 4L, 5L, 4L, 5L, 5L, 3L, 4L, 5L, 3L, 4L, 5L,
6L, 1L, 2L, 2L, 3L, 4L, 5L, 6L, 6L, 6L, 6L, 3L, 6L, 4L, 5L, 6L
)), row.names = c(NA, -90L), class = "data.frame")
g <- graph_from_data_frame(bi, directed = FALSE)
library(graphlayouts)
library(oaqc)
bb <- layout_as_backbone(g)