| Title: | Implement for 'GSEA' Enrichment Visualization | 
| Version: | 0.0.5 | 
| Maintainer: | Jun Zhang <3219030654@stu.cpu.edu.cn> | 
| Description: | Mark your interesting genes on plot and support more parameters to handle your own gene set enrichment analysis plot. | 
| License: | MIT + file LICENSE | 
| Encoding: | UTF-8 | 
| RoxygenNote: | 7.2.1 | 
| Imports: | aplot, DOSE, dplyr, ggplot2, ggpp, ggrepel, ggsci, grDevices, magrittr, purrr, RColorBrewer, reshape2, stringr, tibble, utils | 
| URL: | https://github.com/junjunlab/GseaVis | 
| BugReports: | https://github.com/junjunlab/GseaVis/issues | 
| NeedsCompilation: | no | 
| Packaged: | 2022-12-20 13:11:44 UTC; admin | 
| Author: | Jun Zhang | 
| Depends: | R (≥ 3.5.0) | 
| Repository: | CRAN | 
| Date/Publication: | 2022-12-20 19:40:07 UTC | 
Pipe operator
Description
See magrittr::%>% for details.
Usage
lhs %>% rhs
Arguments
| lhs | A value or the magrittr placeholder. | 
| rhs | A function call using the magrittr semantics. | 
Value
The result of calling rhs(lhs).
dotplotGsea
Description
dotplotGsea
Arguments
| data | GSEA enrich object from clusterProfiler, defalut is NULL. | 
| pval | pvalue cutoff to select significant terms, defalut is NULL. | 
| pajust | adjusted pvalue cutoff to select significant terms, defalut is 0.05. | 
| order.by | the X axis, defalut is "GeneRatio". | 
| str.width | the width of term name, defalut is 50. | 
| base_size | theme base size, defalut is 12. | 
| topn | show the top terms, defalut is NULL. | 
| scales | facet scales, defalut is "free_x". | 
| add.seg | whether add segment line to point, defalut is "FALSE". | 
| line.col | segment line color, defalut is "grey80". | 
| line.size | segment line size, defalut is 1.5. | 
| line.type | segment line type, defalut is "solid". | 
Value
a ggplot object.
Author(s)
Jun Zhang
gsInfo
Description
gsInfo
Usage
gsInfo(object, geneSetID)
Arguments
| object | gseaResult object | 
| geneSetID | gene set ID | 
Value
data.frame
Author(s)
Guangchuang Yu
gseaNb
Description
gseaNb
Arguments
| object | GSEA enrich results. | 
| subPlot | which plot to show, 1/2/3, default is 3. | 
| lineSize | curve line size. default is 0.8. | 
| geneSetID | which pathway name to plot. | 
| rmSegment | whether to remove segment on the curve plot, default is FALSE. | 
| termWidth | the width or the term name, defalut is 40. | 
| segCol | segment color on the curves, defalut is "red". | 
| addGene | whether add gene name on the curve, defalut is FALSE. | 
| geneCol | gene name label color, defalut is NULL. | 
| arrowAngle | arrow angle, defalut is 20. | 
| arrowLength | arrow line length, defalut is 0.2. | 
| arrowEnd | arrow end, defalut is "last". | 
| arrowType | arrow type, defalut is "closed". | 
| curveCol | curve color, defalut is c("#76BA99", "#EB4747", "#996699"). | 
| htCol | heatmap color, defalut is c("#08519C", "#A50F15"). | 
| rankCol | gene rank fill color, defalut is c("#08519C", "white", "#A50F15"). | 
| rankSeq | gene rank plot X axis breaks, defalt is 5000. | 
| htHeight | the relative height when "subplot = 2" to the vertical line plot, defalut is 0.3. | 
| force | the gene label force, refer to geom_text_repel function, defalut is 20. | 
| max.overlaps | refer to geom_text_repel function, defalut is 50. | 
| geneSize | gene label text size, defalut is 4. | 
| newGsea | whether show new style of plot, defalut is FALSE. | 
| addPoint | new style plot with point layer, defalut is TRUE. | 
| newCurveCol | new style plot curve color, defalut is c("#336699", "white", "#993399"). | 
| newHtCol | new style plot heatmap color, defalut is c("#336699", "white", "#993399"). | 
| rmHt | whether remove new style plot heatmap, defalut is FALSE. | 
| addPval | whether add pvalue and NES, defalut is FALSE. | 
| pvalX | set pvalue label x position, defalut is 0.9. | 
| pvalY | set pvalue label y position, defalut is 0.9. | 
| pvalSize | set pvalue label text size, defalut is 4. | 
| pCol | pvalue label color, defalut is "grey30". | 
| pHjust | pvalue label hjust, defalut is 1. | 
| rmPrefix | whether remove GO term prefix like "GOBP/KEGG/CC/MF_*", defalut is TRUE. | 
| nesDigit | the NES score digits retained, defalut is 2. | 
| pDigit | the pvalue and pajust value digits retained, defalut is 2. | 
| markTopgene | whether add top n genes on plot, defalut is FALSE. | 
| topGeneN | the number of genes to be marked on plot, defalut is 5. | 
| kegg | whether input is gseKEGG object, defalut is FALSE. | 
| legend.position | the legend position, defalut is "right". | 
| whether | add target gene expression heatmap, defalut is FALSE. | 
| exp | the expression matrix,tpm/fpkm/rpkm format, defalut is NULL. | 
| scale.exp | whether scale the expression matrix, defalut is TRUE. | 
| sample.order | the expression matrix sample orders, defalut is NULL. | 
| exp.col | the expression colors, defalut is c('blue','white','red'). | 
| ht.legend | whether show the heatmap legend, defalut is TRUE. | 
| ght.relHight | the relative height to the main plot, defalut is 0.4. | 
| ght.geneText.size | the gene lable text size, defalut is 6. | 
| ght.facet | whether facet expression heatmap, defalut is FALSE. | 
| ght.facet.scale | the facet plot scale argumrnt, defalut is "free". | 
| termID.order | the facet term ID orders, defalut is NULL. | 
| rank.gene | add your gene label on rank plot, defalut is NULL. | 
| rank.gene.nudgey | the gene label nudge y on rank plot, defalut is 2. | 
Value
ggplot2 object
Author(s)
Jun Zhang
Examples
# load data
test_data <- system.file("extdata", "gseaRes.RDS", package = "GseaVis")
gseaRes <- readRDS(test_data)
# all plot
gseaNb(object = gseaRes,
      geneSetID = 'GOBP_NUCLEOSIDE_DIPHOSPHATE_METABOLIC_PROCESS',
      subPlot = 2)
volcanoGsea
Description
volcanoGsea
Usage
volcanoGsea(
  data = NULL,
  NES.cutoff = 1,
  pvalue.cutoff = NULL,
  p.adjust.CUTOFF = 0.05,
  nudge.y = c(0, 0),
  topN = 5,
  point.size = 3,
  point.color = c("#CC3333", "#CCCCCC", "#0099CC"),
  ...
)
Arguments
| data | GSEA enrich object from clusterProfiler, defalut is NULL. | 
| NES.cutoff | NES cutoff to select significant terms, defalut is 1. | 
| pvalue.cutoff | pvalue cutoff to select significant terms, defalut is NULL. | 
| p.adjust.CUTOFF | adjusted pvalue cutoff to select significant terms, defalut is 0.05. | 
| nudge.y | y shift to ajust label, defalut is c(0,0). | 
| topN | top term to show, defalut is 5. | 
| point.size | point size, defalut is 3. | 
| point.color | point color, defalut is c('#CC3333','#CCCCCC','#0099CC'). | 
| ... | other arguments passed by geom_text_repel. | 
Value
a ggplot object.
Author(s)
Jun Zhang