Fix interaction plot title OrfRep ref

qhtcp-workflow/apps/r/calculate_interaction_zscores.R

@@ -732,6 +732,8 @@ generate_interaction_plot_configs <- function(df, type) {
   delta_plot_configs <- list()
 
   # Overall statistics plots
+  OrfRep <- first(df$OrfRep) # this should correspond to the reference strain
+
   for (var in names(limits_map)) {
     y_limits <- limits_map[[var]]