library(polmineR)
library(gradget)
library(magrittr)
library(pbapply)
library(igraph)
runcode <- if (require("GermaParl", quietly = TRUE)) TRUE else FALSE
if (runcode) use ("GermaParl")

2D

G <- merkel2008
igraph_as_svg(merkel2008) %>% plot()

Generate output

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)


PolMine/polmineR.graph documentation built on April 27, 2020, 3:24 a.m.