bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use OrfRep instead of ORF for plot points

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-12 04:24:48 -04:00
parent dbe8b1a15b
commit 90f6ce8fe8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

@@ -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 {