library(polmineR) library(gradget) library(magrittr) library(pbapply) library(igraph)
runcode <- if (require("GermaParl", quietly = TRUE)) TRUE else FALSE if (runcode) use ("GermaParl")
G <- merkel2008 igraph_as_svg(merkel2008) %>% plot()
G <- merkel2008 %>% igraph_add_coordinates(layout = "kamada.kawai", dim = 3) %>% igraph_add_communities() %>% rescale(-250, 250)
igraph_as_gradget_data(G) %>% gradget(knitr = TRUE, width = 700, height = 500)
am <- partition( "GERMAPARL", speaker = "Angela Merkel", year = 2008, interjection = FALSE, p_attribute = "word" )
V(G)$kwic <- pblapply(V(G)$name, function(n) kwic(am, query = n, verbose = F)) %>% lapply(as.character) %>% lapply(function(x) paste(x, collapse = "<br/>")) %>% unlist()
edge_matrix <- igraph::as_edgelist(merkel2008) q1 <- sprintf('"%s" []{0,4} "%s"', edge_matrix[,1], edge_matrix[,2]) q2 <- sprintf('"%s" []{0,4} "%s"', edge_matrix[,2], edge_matrix[,1]) E(G)$kwic <- data.frame(q1, q2, stringsAsFactors = FALSE), f = 1L:length(q1) %>% split(f = 1L:length(q1)) %>% pblapply(function(q) kwic(am2008, query = unlist(q), cqp = T, verbose = FALSE)) %>% lapply(as.character) %>% lapply(function(x) paste(x, collapse = "<br/>")) %>% unlist()
granny(G)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.