R/fct_networkFromDF.R

In chasemc/IDBacApp: MALDI-TOF MS Protien and Small Molecule Analysis

#' Network from data frame
#'
#' @param dataF dataframe
#'
#' @return igraph network
#' 
#'
networkFromDF <- function(dataF){
  
  # Create igraph
  dataF <- igraph::graph_from_data_frame(dataF)
  
  #adjust wieght
  igraph::E(dataF)$Weight <- igraph::E(dataF)$Weight
  
  return(dataF)
  
}




#' Color network based on fastgreedy.community
#'
#' @param igraphNetwork igraph network
#' @param hexColors colors as hex
#'
#' @return colored igraph
#' 
modularityClustering <- function(igraphNetwork,
                                 hexColors = colorBlindPalette()[1:100]){
  
  clusters <- igraph::as.undirected(igraphNetwork)
  clusters <- igraph::fastgreedy.community(clusters)
  
  igraph::V(igraphNetwork)$color <- as.vector(hexColors)[clusters$membership]
  
  return(igraphNetwork)
}