diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index bb2fff2f..914012ed 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/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 = OrfRep, Gene = Gene, delta_bg = delta_bg), shape = config$shape %||% 3) + plot + geom_point(aes(text = paste("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 = OrfRep, Gene = Gene), shape = config$shape %||% 3, position = "jitter") + plot + geom_point(aes(text = paste("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 {