% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/DEgenes.R
\name{DEbubblePlot}
\alias{DEbubblePlot}
\title{DEbubblePlot}
\usage{
DEbubblePlot(de_list)
}
\arguments{
\item{de_list}{A list of results from `DE genes ()`}
}
\value{
A ggplot to visualise the DE results via bubble plot
}
\description{
A function to generate circlepack plot to visualise
the marker for each cluster
}
\examples{
library(S4Vectors)
data(sce_control_subset, package = "CiteFuse")
sce_control_subset <- DEgenes(sce_control_subset,
altExp_name = "none",
group = sce_control_subset$SNF_W_louvain,
return_all = TRUE,
exprs_pct = 0.5)


sce_control_subset <- selectDEgenes(sce_control_subset,
                            altExp_name = "none")

sce_control_subset <- DEgenes(sce_control_subset,
altExp_name = "ADT",
group = sce_control_subset$SNF_W_louvain,
return_all = TRUE,
exprs_pct = 0.5)


sce_control_subset <- selectDEgenes(sce_control_subset,
                             altExp_name = "ADT")

rna_DEgenes <- metadata(sce_control_subset)[["DE_res_RNA_filter"]]
adt_DEgenes <- metadata(sce_control_subset)[["DE_res_ADT_filter"]]

rna_DEgenes <- lapply(rna_DEgenes, function(x){
  x$name <- gsub("hg19_", "", x$name)
  x})
DEbubblePlot(list(RNA = rna_DEgenes, ADT = adt_DEgenes))

}