helfRlein: R Helper Functions

#install.packages("GGally")
#install.packages("network")
#install.packages("sna")

# install.packages("igraph")
# install.packages("visNetwork")
# install.packages("threejs")
# install.packages("networkD3")
# install.packages("ndtv")

rm(list = ls())
#  settings ---------------------------------------------------------------

# used, but comments for renv
'
library(ggplot2)
library(network)
library(threejs)
library(htmlwidgets)
library(igraph)
'
# not used
#library(stringr)
#library(GGally)
#library(sna)
#library(visNetwork)
#library(networkD3)
#library(ndtv)

source("/Users/jakobgepp/Projekte/Lufthansa/Pele_git/getnetwork.R")
# load network ------------------------------------------------------------

dir <- "/Users/jakobgepp/Projekte/2018/Intern/tsbox"
dir <- "/Users/jakobgepp/Projekte/Lufthansa/Server-tmp/for_andre/PELE_AB/source/Boosting"
dir <- "/Users/jakobgepp/Projekte/Lufthansa/Server-tmp/for_andre/PELE_AB/source/Agam_aggregation"
dir <- "/Users/jakobgepp/Projekte/2018/Intern/R Network functions"

net <- getnetwork(dir = dir)
g1 <- net$igraph

# create plots ------------------------------------------------------------
l <- igraph::layout_with_fr(g1)
#colrs <- rainbow(length(unique(V(g1)$color)))
colrs <- terrain.colors(length(unique(igraph::V(g1)$color)))

plot(g1,
     edge.arrow.size=.05,
     #vertex.label=NA,
     edge.width = 5*igraph::E(g1)$weight/max(igraph::E(g1)$weight),
     #vertex.shape="none",
     vertex.shape="rectangle",
     vertex.size = (sapply(igraph::V(g1)$label, nchar))*2,
     vertex.size2 = 5,
     #vertex.label=V(g1)$label,
     #vertex.label.font=2,
     #vertex.label.color=V(g1)$color,
     vertex.label.color="black",
     #vertex.size = V(g1)$size,
     vertex.size = 20,
     #vertex.label.cex=V(g1)$size,
     vertex.color = colrs[igraph::V(g1)$color],
     edge.color="steelblue1",
     layout = l)
 legend(x=0,
        unique(igraph::V(g1)$folder), pch=21,
        #col="#777777",
        pt.bg= colrs[unique(igraph::V(g1)$color)],
        pt.cex=2, cex=.8, bty="n", ncol=1)



# weighted bipartite network
fnet <-network(net$matrix,
               matrix.type = "adjacency",
               ignore.eval = FALSE,
               names.eval = "weights",
               directed = TRUE)

plot.ggnet <- ggnet2(fnet,
  node.size = igraph::V(g1)$size,
  color = igraph::V(g1)$folder,
  #palette = "Blues",
  arrow.size = 12,
  arrow.gap = 0.025,
  label = TRUE,
  edge.label = "weights") +
  guides(size = FALSE)
plot(plot.ggnet)

#ggsave("/Users/jakobgepp/Desktop/network_sample.png",
#       width = 20, height = 10, units = "cm")