View source: R/Script_PLATE_07_PCA_0_RunPCA.R
RunPCA | R Documentation |
Performs principle component analysis on splicing or gene data. This is a wrapper function for RunPCA.PSI
and RunPCA.Exp
.
RunPCA( MarvelObject, cell.group.column, cell.group.order = NULL, cell.group.colors = NULL, sample.ids = NULL, min.cells = 25, features, point.size = 0.5, point.alpha = 0.75, point.stroke = 0.1, seed = 1, method.impute = "random", cell.group.column.impute = NULL, level )
MarvelObject |
Marvel object. S3 object generated from |
cell.group.column |
Character string. The name of the sample metadata column in which the variables will be used to label the cell groups on the PCA. |
cell.group.order |
Character string. The order of the variables under the sample metadata column specified in |
cell.group.colors |
Character string. Vector of colors for the cell groups specified for PCA analysis using |
sample.ids |
Character strings. Specific cells to plot. |
min.cells |
Numeric value. The minimum no. of cells expressing the splicing event or gene for the event or gene, respectively, to be included for analysis. |
features |
Character string. Vector of |
point.size |
Numeric value. Size of data points on reduced dimension space. |
point.alpha |
Numeric value. Transparency of the data points on reduced dimension space. Take any values between 0 to 1. The smaller the value, the more transparent the data points will be. |
point.stroke |
Numeric value. The thickness of the outline of the data points. The larger the value, the thicker the outline of the data points. |
seed |
Numeric value. Only applicable when |
method.impute |
Character string. Only applicable when |
cell.group.column.impute |
Character string. Only applicable when |
level |
Character string. Indicate |
An object of class S3 with new slots MarvelObject$PCA$PSI$Results
, MarvelObject$PCA$PSI$Plot
, and MarvelObject$PCA$PSI$Plot.Elbow
or MarvelObject$PCA$Exp$Results
, MarvelObject$PCA$Exp$Plot
, and MarvelObject$PCA$Exp$Plot.Elbow
, when level
option specified as "splicing"
or "gene"
, respectively.
marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL")) # Define splicing events for analysis df <- do.call(rbind.data.frame, marvel.demo$PSI) tran_ids <- df$tran_id # PCA marvel.demo <- RunPCA(MarvelObject=marvel.demo, sample.ids=marvel.demo$SplicePheno$sample.id, cell.group.column="cell.type", cell.group.order=c("iPSC", "Endoderm"), cell.group.colors=NULL, min.cells=5, features=tran_ids, level="splicing", point.size=2 ) # Check outputs head(marvel.demo$PCA$PSI$Results$ind$coord) marvel.demo$PCA$PSI$Plot
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.