--- a
+++ b/R/NewGgraph.R
@@ -0,0 +1,55 @@
+#' Generate a graphical representation of pathway gene maps
+#'
+#' This function merges multiple gene-pathway related dataframes, processes them
+#' for graph creation, and visualizes the relationships in a dendrogram layout using
+#' the provided node and edge gathering functions from the 'ggraph' package.
+#'
+#' @param BP_dataframe Dataframe for Biological Process.
+#' @param BP_ids IDs for Biological Process.
+#' @param KEGG_dataframe Dataframe for KEGG pathways.
+#' @param KEGG_ids IDs for KEGG pathways.
+#' @param MF_dataframe Dataframe for Molecular Function.
+#' @param MF_ids IDs for Molecular Function.
+#' @param REACTOME_dataframe Dataframe for REACTOME pathways.
+#' @param REACTOME_ids IDs for REACTOME pathways.
+#' @param CC_dataframe Dataframe for Cellular Component.
+#' @param CC_ids IDs for Cellular Component.
+#' @param DO_dataframe Dataframe for Disease Ontology.
+#' @param DO_ids IDs for Disease Ontology.
+#' @importFrom tidygraph tbl_graph
+#' @importFrom ggraph ggraph geom_edge_diagonal geom_node_point geom_node_text scale_edge_colour_brewer node_angle
+#' @importFrom ggplot2 theme element_rect scale_size scale_color_brewer coord_cartesian
+#' @return A 'ggraph' object representing the pathway gene map visualization.
+#' @export
+#' 
+new_ggraph <- function(BP_dataframe, BP_ids, KEGG_dataframe, KEGG_ids,
+                       MF_dataframe, MF_ids, REACTOME_dataframe, REACTOME_ids,
+                       CC_dataframe, CC_ids, DO_dataframe, DO_ids) {
+
+  new_dataframe <- gene_map_pathway(BP_dataframe, BP_ids, KEGG_dataframe, KEGG_ids,
+                                    MF_dataframe, MF_ids, REACTOME_dataframe, REACTOME_ids,
+                                    CC_dataframe, CC_ids, DO_dataframe, DO_ids)
+
+  # Prepare the data for graph creation using 'ggraph'
+  index_ggraph <- c("type", "pathway", "gene")  # columns other than the lowest level
+  nodes_ggraph <- gather_graph_node(new_dataframe, index = index_ggraph, root = "combination")
+  edges_ggraph <- gather_graph_edge(new_dataframe, index = index_ggraph, root = "combination")
+
+  # Create and plot the graph using 'tidygraph' and 'ggraph'
+  graph_ggraph <- tidygraph::tbl_graph(nodes = nodes_ggraph, edges = edges_ggraph)
+
+  plot <- ggraph::ggraph(graph_ggraph, layout = 'dendrogram', circular = TRUE) +
+    ggraph::geom_edge_diagonal(aes(color = .data$node1.node.branch, filter = .data$node1.node.level != "combination", alpha = .data$node1.node.level), edge_width = 1) +
+    ggraph::geom_node_point(aes(size = .data$node.size, color = .data$node.branch, filter = .data$node.level != "combination"), alpha = 0.45) +
+    ggplot2::scale_size(range = c(15, 90)) +
+    ggplot2::theme(legend.position = "none") +
+    ggraph::scale_edge_colour_brewer(palette= "Dark2") +
+    ggplot2::scale_color_brewer(palette = "Dark2") +
+    ggraph::geom_node_text(aes(x = 1.058 * .data$x, y = 1.058 * .data$y, label = .data$node.short_name, angle = -((-ggraph::node_angle(.data$x, .data$y) + 90) %% 180) + 60, filter = .data$leaf, color = .data$node.branch), size = 4, hjust = 'outward') +
+    ggraph::geom_node_text(aes(label = .data$node.short_name, filter = !.data$leaf & (.data$node.level == "type"), color = .data$node.branch), fontface = "bold", size = 8, family = "sans") +
+    ggraph::geom_node_text(aes(label = .data$node.short_name, filter = !.data$leaf & (.data$node.level == "pathway"), color = .data$node.branch, angle = -((-ggraph::node_angle(.data$x, .data$y) + 90) %% 180) + 36), fontface = "bold", size = 4.5, family = "sans") +
+    ggplot2::theme(panel.background = ggplot2::element_rect(fill = NA)) +
+    ggplot2::coord_cartesian(xlim = c(-1.3, 1.3), ylim = c(-1.3, 1.3))
+
+  return(plot)
+}