| modeGating {iSEE} | R Documentation |
This mode launches a Shiny App preconfigured with multiple chain-linked
feature expression plots is launched for interactive data exploration of the
SingleCellExperiment or SummarizedExperiment
object.
modeGating(se, features, featAssayMax = max(2, nrow(features)), ..., plot_width = 4)
se |
An object that coercible to SingleCellExperiment |
features |
|
featAssayMax |
Maximal number of feature assay plots in the app. |
... |
Additional arguments passed to |
plot_width |
The grid width of linked plots (numeric vector of
length either 1 or equal to |
A Shiny app object is returned.
library(scRNAseq)
# Example data ----
sce <- ReprocessedAllenData(assays="tophat_counts")
class(sce)
library(scater)
sce <- logNormCounts(sce, exprs_values="tophat_counts")
# Select top variable genes ----
plot_count <- 6
rv <- rowVars(assay(sce, "tophat_counts"))
top_var <- head(order(rv, decreasing=TRUE), plot_count*2)
top_var_genes <- rownames(sce)[top_var]
plot_features <- data.frame(
x=head(top_var_genes, plot_count),
y=tail(top_var_genes, plot_count),
stringsAsFactors=FALSE
)
# launch the app itself ----
app <- modeGating(sce, features=plot_features, featAssayMax=6)
if (interactive()) {
shiny::runApp(app, port=1234)
}