View source: R/Script_PLATE_10_ADHOC_PLOT_0_PlotValues.R
PlotValues | R Documentation |
Plots percent spliced-in (PSI) or gene expression values across different groups of cells. This is a wrapper function for PlotValues.Exp
and PlotValues.PSI
.
PlotValues( MarvelObject, cell.group.list, feature, maintitle = "gene_short_name", xlabels.size = 8, level, min.cells = NULL, sigma.sq = 0.001, bimodal.adjust = NULL, seed = NULL, modality.column = "modality.bimodal.adj", scale.y.log = FALSE, max.cells.jitter = 10000, max.cells.jitter.seed = 1, cell.group.colors = NULL, point.alpha = 0.2 )
MarvelObject |
Marvel object. S3 object generated from |
cell.group.list |
List of character strings. Each element of the list is a vector of cell IDs corresponding to a cell group. The name of the element will be the cell group label. |
feature |
Character string. |
maintitle |
Character string. Column to use as plot main title as per |
xlabels.size |
Numeric value. Size of x-axis labels as per |
level |
Character string. Indicate |
min.cells |
Numeric value. Only applicable when |
sigma.sq |
Numeric value. Only applicable when |
bimodal.adjust |
Logical. Only applicable when |
seed |
Numeric value. Only applicable when |
modality.column |
Character string. Only applicable when |
scale.y.log |
Logical value. Only applicable when |
max.cells.jitter |
Numeric value. Only applicable when |
max.cells.jitter.seed |
Numeric value. Only applicable when |
cell.group.colors |
Character string. Vector of colors for the cell groups specified for PCA analysis using |
point.alpha |
Numeric value. Transparency of the data points. Takes any values between 0-1. Default value is |
An object of class S3 with new slot $adhocPlot$PSI
or MarvelObject$adhocPlot$Exp
when level
set to "splicing"
or "gene"
, respectively.
marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL")) # Define cell groups to plot df.pheno <- marvel.demo$SplicePheno cell.group.g1 <- df.pheno[which(df.pheno$cell.type=="iPSC"), "sample.id"] cell.group.g2 <- df.pheno[which(df.pheno$cell.type=="Endoderm"), "sample.id"] cell.group.list <- list(cell.group.g1, cell.group.g2) names(cell.group.list) <- c("iPSC", "Endoderm") # Plot marvel.demo <- PlotValues(MarvelObject=marvel.demo, cell.group.list=cell.group.list, feature="chr17:8383254:8382781|8383157:-@chr17:8382143:8382315", level="splicing", min.cells=5, xlabels.size=5 ) # Check output marvel.demo$adhocPlot$PSI
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.