From cdc223d5e08bfa214f22108a9b66cbc91705e4c1 Mon Sep 17 00:00:00 2001 From: Farhan Ameen Date: Mon, 28 Oct 2024 16:44:40 +1100 Subject: [PATCH] version bump + add ggnewscale import --- DESCRIPTION | 2 +- R/signifPlot.R | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 7044c93..9440722 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: spicyR Type: Package Title: Spatial analysis of in situ cytometry data -Version: 1.17.9 +Version: 1.17.10 Authors@R: c( person("Nicolas", "Canete", , "nicolas.canete@sydney.edu.au", role = "aut"), person("Ellis", "Patrick", , "ellis.patrick@sydney.edu.au", role = c("aut", "cre")), diff --git a/R/signifPlot.R b/R/signifPlot.R index 1a23933..b7ddbbc 100644 --- a/R/signifPlot.R +++ b/R/signifPlot.R @@ -37,6 +37,7 @@ #' @import ggthemes #' @import ggh4x #' @importFrom grid grobTree polygonGrob gpar +#' @importFrom ggnewscale new_scale signifPlot <- function(results, fdr = FALSE, type = "bubble", @@ -206,6 +207,7 @@ draw_key_half_circle = function(data, params, shape) { #' @import ggthemes #' @import ggh4x +#' @importFrom ggnewscale new_scale bubblePlot <- function(test, fdr, breaks, @@ -409,7 +411,7 @@ bubblePlot <- function(test, strip.background = element_rect(linewidth = NA), panel.spacing = unit(0.4, 'lines') ) + - new_scale("fill") + + ggnewscale::new_scale("fill") + geom_tile(aes(fill = parent), alpha = -1) + scale_fill_manual(values = contextColours, labels = contextLabels) + labs(fill = "Context") +