Use OrfRep instead of ORF for plot points

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -389,9 +389,9 @@ save_plots <- function(plots, output_dir, file_name, grid_layout = NULL) {
 
 generate_scatter_plot <- function(plot, config) {
   plot <- if (!is.null(config$delta_bg_point) && config$delta_bg_point) {
-    plot + geom_point(aes(ORF = ORF, Gene = Gene, delta_bg = delta_bg), shape = config$shape %||% 3)
+    plot + geom_point(aes(ORF = OrfRep, Gene = Gene, delta_bg = delta_bg), shape = config$shape %||% 3)
   } else if (!is.null(config$gene_point) && config$gene_point) {
-    plot + geom_point(aes(ORF = ORF, Gene = Gene), shape = config$shape %||% 3, position = "jitter")
+    plot + geom_point(aes(ORF = OrfRep, Gene = Gene), shape = config$shape %||% 3, position = "jitter")
   } else if (!is.null(config$position) && config$position == "jitter") {
     plot + geom_point(shape = config$shape %||% 3, size = config$size %||% 0.2, position = "jitter")
   } else {