fix order of columns fpr valid value plot

mpc-bioinformatics · Aug 8, 2024 · 8f07b13 · 8f07b13
1 parent 5cb801b
commit 8f07b13
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/workflow_QC.R b/R/workflow_QC.R
@@ -143,6 +143,10 @@ workflow_QC <- function(data_path,
   vv_plot_data <- ValidValuePlot(D_long = prepared_data[["D_long"]],
                                           use_groups = use_groups, groupvar_name = groupvar_name, group_colours = group_colours,
                                           base_size = base_size)
+  #### reorder valid values table to stay in the same order as the original data ####
+  cnames <- colnames(prepared_data$D)
+  vv_plot_data$table$name <- factor(vv_plot_data$table$name, levels = cnames)
+  vv_plot_data$table <- vv_plot_data$table[order(vv_plot_data$table$name),]
 
   mess <- paste0(mess, vv_plot_data[["message"]])