option to have kepp labels of the protein nodes in the plot in the or…

…iginal order
mpc-bioinformatics · Dec 1, 2023 · c1278a9 · c1278a9
1 parent a1bcf85
commit c1278a9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/plotBipartiteGraph.R b/R/plotBipartiteGraph.R
@@ -51,11 +51,18 @@ plotBipartiteGraph <- function(G, vertex.label.dist = 0, legend = TRUE,
   pos_peptides <- Layout[,1][Layout[,2] == 0]
 
   if (node_labels_proteins == "letters") {
+    #### TODO: was ist, wenn es mehr als 26 Proteine gibt?
     names_G[Layout[,2] == 1] <- LETTERS[rank(pos_proteins)]
   }
   if (node_labels_proteins == "accessions") {
     names_G[Layout[,2] == 1] <- limma::strsplit2(V(G)$name[Layout[,2] == 1], ";")[,1]
   }
+  # nicht geordnete Zahlen
+  if (node_labels_proteins == "numbers_noord") {
+    names_G[Layout[,2] == 1] <- 1:length(pos_proteins)
+  }
+
+
 
   if (node_labels_peptides == "numbers") {
     names_peptides <- 1:sum(Layout[,2] == 0)