Creating annotated output with and ReportingTools
Overview
The package is intended to help people easily create useful output from various analyses. While affycoretools was originally intended for those using Affymetrix microarrays, this is no longer the case. While some functions remain Affy-centric, most are now much more general, and can be used for any microarray or RNA-Seq experiment.
Introduction
This package has evolved from my work as a service core biostatistician. I routinely analyze very similar experiments, and wanted to create a way to minimize all the cutting and pasting of code that I found myself doing. In addition, I wanted to come up with a good way to make an analysis reproducible, in the sense that I (or somebody else) could easily re-create the results.
In the past this package relied on the package, and was intended to be used in concert with a ‘Sweave’ document that contained both the code that was used to analyze the data, as well as explanatory text that would end up in a pdf (or HTML page) that could be given to a client. In the intervening period, people have developed other, better packages such as and that make it much easier to create the sort of output I like to present to my clients.
This document was generated using an Rmarkdown document (it’s the file called RefactoredAffycoretools.Rmd that you can find in your R library directory in the affycoretools/doc folder). Part of using Rmarkdown is generating .Rmd files that contain R code, and for each code block there are some arguments that define how the results for that code block are returned. A good resource for the code options is here.
Using affycoretools
For this section we will be using the data set that comes with the package. Remember that you can always run this code at home by doing this:
And then you will have a file called RefactoredAffycoretools.R in your working directory that you can either or open with or , and run by chunk or line by line.
We first load and rename the data:
suppressMessages(library(affycoretools))
data(sample.ExpressionSet)
eset <- sample.ExpressionSet
eset## ExpressionSet (storageMode: lockedEnvironment)
## assayData: 500 features, 26 samples
## element names: exprs, se.exprs
## protocolData: none
## phenoData
## sampleNames: A B ... Z (26 total)
## varLabels: sex type score
## varMetadata: labelDescription
## featureData: none
## experimentData: use 'experimentData(object)'
## Annotation: hgu95av2This object is a truncated data set, based on an Affymetrix HG-U95av2 array. There are 26 samples and 500 probesets. We will use the to fit a linear model using .
Note that the limma package will retain annotation data that is in the , so we add those data in using
## 'select()' returned 1:many mapping between keys and columns
## 'select()' returned 1:many mapping between keys and columns
## 'select()' returned 1:many mapping between keys and columnssuppressMessages(library(limma))
pd <- pData(phenoData(eset))
design <- model.matrix(~0+type+sex, pd)
colnames(design) <- gsub("type|sex", "", colnames(design))
contrast <- matrix(c(1,-1,0))
colnames(contrast) <- "Case vs control"
fit <- lmFit(eset, design)
fit2 <- contrasts.fit(fit, contrast)
fit2 <- eBayes(fit)
topTable(fit2, 1)[,1:4]## PROBEID ENTREZID SYMBOL
## 31667_r_at 31667_r_at 10002 NR2E3
## AFFX-HSAC07_X00351_M_st AFFX-HSAC07_X00351_M_st <NA> <NA>
## 31375_at 31375_at <NA> <NA>
## 31466_at 31466_at 3128 HLA-DRB6
## 31597_r_at 31597_r_at 1978 EIF4EBP1
## 31440_at 31440_at 6932 TCF7
## 31396_r_at 31396_r_at 4440 MSI1
## AFFX-hum_alu_at AFFX-hum_alu_at <NA> <NA>
## 31391_at 31391_at 9001 HAP1
## AFFX-HSAC07_X00351_3_at AFFX-HSAC07_X00351_3_at <NA> <NA>
## GENENAME
## 31667_r_at nuclear receptor subfamily 2 group E member 3
## AFFX-HSAC07_X00351_M_st <NA>
## 31375_at <NA>
## 31466_at major histocompatibility complex, class II, DR beta 6 (pseudogene)
## 31597_r_at eukaryotic translation initiation factor 4E binding protein 1
## 31440_at transcription factor 7
## 31396_r_at musashi RNA binding protein 1
## AFFX-hum_alu_at <NA>
## 31391_at huntingtin associated protein 1
## AFFX-HSAC07_X00351_3_at <NA>After adding the annotation data to the object, the output now contains the appropriate annotation data for each probeset. At this point we can output an HTML table that contains these data.
suppressMessages(library(ReportingTools))
htab <- HTMLReport("afile", "My cool results")
publish(topTable(fit2, 1), htab)
finish(htab)## [1] "./afile.html"If you run the code yourself, you will have an HTML file ‘afile.html’ in the working directory, that contains the data for our top 10 genes. This table is not particularly interesting, and the package already has functionality to just do something like
htab <- HTMLReport("afile2", "My cool results, ReportingTools style")
publish(fit2, htab, eset, factor = pd$type, coef = 1, n = 10)
finish(htab)## [1] "./afile2.html"and it will automatically generate another HTML file, ‘afile2.html’, with some extra plots that show the different groups, and we didn’t even have to use directly. However, the default plots in the HTML table are a combination of dotplot and boxplot, which I find weird. Since is easily extensible, we can make changes that are more pleasing.
d.f <- topTable(fit2, 2)
out <- makeImages(df = d.f, eset = eset, grp.factor = pd$type, design = design,
contrast = contrast, colind = 1, repdir = ".")
htab <- HTMLReport("afile3", "My cool results, affycoretools style")
publish(out$df, htab, .mofifyDF = list(entrezLinks, affyLinks))
finish(htab)## [1] "./afile3.html"Note that there are two differences in the way we did things. First, we create a , and then decorate it with the plots using the function. This will by default create dotplots (or you can specify boxplots). For the plots to fit in an HTML table, there are no axis labels. However, each plot is also a link, and if you click on it, a larger plot with axis labels will be presented. If you are running the code yourself, see ‘afile3.html’.
All the little files that get created can get pretty messy, so the default is to put everything into a ‘reports’ subdirectory, so your working directory stays clean. For this example we over-ride the defaults so we do not have to go searching in subdirectories for our tables.
For HTML output the better idea is to generate a table using e.g., the xtable package, with links to the tables that we have generated.
An alternative parameterization that probably makes more sense is to fit coefficients for each sex/treatment combination.
grps <- factor(apply(pd[,1:2], 1, paste, collapse = "_"))
design <- model.matrix(~0+grps)
colnames(design) <- gsub("grps", "", colnames(design))
contrast <- matrix(c(1,-1,0,0,
0,0,1,-1,
1,-1,-1,1),
ncol = 3)
colnames(contrast) <- c("Female_Case vs Female_Control",
"Male_Case vs Male_Control",
"Interaction")
fit <- lmFit(eset, design)
fit2 <- contrasts.fit(fit, contrast)
fit2 <- eBayes(fit2)With this parameterization we can look at intra-sex differences, as well as the interaction (looking for sex-specific changes). This now means that we have a total of three HTML tables to output, which makes things a bit more complex to present. Luckily, this is pretty simple to accomplish. For this step we will now use the default ‘reports’ subdirectory to keep everything straight. In addition, we will trim down the output a bit.
## get a list containing the output for each comparison
out <- lapply(1:3, function(x) topTable(fit2, x))
## process the output to add images
htab <- lapply(1:3, function(x){
tmp <- HTMLReport(gsub("_", " ", colnames(contrast)[x]), colnames(contrast)[x], "./reports")
tmp2 <- makeImages(out[[x]], eset, grps, design, contrast, x)
publish(tmp2$df, tmp, .modifyDF = list(affyLinks, entrezLinks))
finish(tmp)
return(tmp)
})A reasonable thing to do would be to add a table to this document that lists all the different comparisons we made, with a count of the genes and links to the HTML tables we have generated. To do this we use the xtable package (you could also use as well), and add results = “asis” to the R code chunk in our Rmarkdown document.
d.f <- data.frame(Comparison = sapply(htab, function(x) XML::saveXML(Link(x))),
"Number significant" = sapply(out, nrow), check.names = FALSE)
kable(d.f, caption = "Number of significant genes.",
format = "html", row.names = FALSE)| Comparison | Number significant |
|---|---|
| <a href=“./reports/Female Case vs Female Control.html”>Female_Case vs Female_Control</a> | 10 |
| <a href=“./reports/Male Case vs Male Control.html”>Male_Case vs Male_Control</a> | 10 |
| <a href=“./reports/Interaction.html”>Interaction</a> | 10 |
We are often asked to create a Venn diagram showing overlap between groups. This is pretty simple to do, but it would be nicer to have an HTML version with clickable links, so your PI or end user can see what genes are in each cell of the Venn diagram. As an example, we can generate a Venn diagram comparing overlapping genes between the male and female comparisons.
collist <- list(1:2)
venn <- makeVenn(fit2, contrast, design, collist = collist, adj.meth = "none")
## generate a list of captions for each Venn.
## we only have one, so it's a list of length 1.
## we are using the BiocStyle package to control formatting,
## so the first sentence will be bolded and in blue.
cap <- list(paste("A Venn diagram. Note that the first sentence is bolded",
"and blue, whereas the rest is normal type and black. Usually",
"one would use a more useful caption than this one."))
vennInLine(venn, cap)
(#fig:venn1) A Venn diagram. Note that the first sentence is bolded and blue, whereas the rest is normal type and black. Usually one would use a more useful caption than this one.
There is similar functionality for presenting the results of a GO hypergeometric analysis (), and GSEA analysis, based on the function in ( and ).
Session information
The version of R and packages loaded when creating this vignette were:
## R version 4.4.2 (2024-10-31)
## Platform: x86_64-pc-linux-gnu
## Running under: Ubuntu 24.04.1 LTS
##
## Matrix products: default
## BLAS: /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
## LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.26.so; LAPACK version 3.12.0
##
## locale:
## [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
## [3] LC_TIME=en_US.UTF-8 LC_COLLATE=C
## [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
## [7] LC_PAPER=en_US.UTF-8 LC_NAME=C
## [9] LC_ADDRESS=C LC_TELEPHONE=C
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
##
## time zone: Etc/UTC
## tzcode source: system (glibc)
##
## attached base packages:
## [1] stats4 stats graphics grDevices utils datasets methods
## [8] base
##
## other attached packages:
## [1] ReportingTools_2.47.0 knitr_1.49 limma_3.63.2
## [4] hgu95av2.db_3.13.0 org.Hs.eg.db_3.20.0 AnnotationDbi_1.69.0
## [7] IRanges_2.41.2 S4Vectors_0.45.2 affycoretools_1.79.0
## [10] Biobase_2.67.0 BiocGenerics_0.53.3 generics_0.1.3
## [13] BiocStyle_2.35.0
##
## loaded via a namespace (and not attached):
## [1] splines_4.4.2 BiocIO_1.17.1
## [3] bitops_1.0-9 filelock_1.0.3
## [5] tibble_3.2.1 R.oo_1.27.0
## [7] preprocessCore_1.69.0 graph_1.85.0
## [9] XML_3.99-0.17 rpart_4.1.23
## [11] lifecycle_1.0.4 httr2_1.0.7
## [13] edgeR_4.5.1 lattice_0.22-6
## [15] ensembldb_2.31.0 OrganismDbi_1.49.0
## [17] backports_1.5.0 magrittr_2.0.3
## [19] Hmisc_5.2-1 sass_0.4.9
## [21] rmarkdown_2.29 jquerylib_0.1.4
## [23] yaml_2.3.10 gcrma_2.79.0
## [25] ggbio_1.55.0 DBI_1.2.3
## [27] buildtools_1.0.0 RColorBrewer_1.1-3
## [29] abind_1.4-8 zlibbioc_1.52.0
## [31] GenomicRanges_1.59.1 purrr_1.0.2
## [33] R.utils_2.12.3 AnnotationFilter_1.31.0
## [35] biovizBase_1.55.0 RCurl_1.98-1.16
## [37] nnet_7.3-19 VariantAnnotation_1.53.0
## [39] rappdirs_0.3.3 GenomeInfoDbData_1.2.13
## [41] AnnotationForge_1.49.0 maketools_1.3.1
## [43] genefilter_1.89.0 annotate_1.85.0
## [45] codetools_0.2-20 DelayedArray_0.33.3
## [47] xml2_1.3.6 tidyselect_1.2.1
## [49] GOstats_2.73.0 farver_2.1.2
## [51] UCSC.utils_1.3.0 matrixStats_1.4.1
## [53] BiocFileCache_2.15.0 base64enc_0.1-3
## [55] GenomicAlignments_1.43.0 jsonlite_1.8.9
## [57] Formula_1.2-5 iterators_1.0.14
## [59] survival_3.8-3 foreach_1.5.2
## [61] tools_4.4.2 progress_1.2.3
## [63] PFAM.db_3.20.0 Rcpp_1.0.13-1
## [65] glue_1.8.0 gridExtra_2.3
## [67] SparseArray_1.7.2 xfun_0.49
## [69] DESeq2_1.47.1 MatrixGenerics_1.19.0
## [71] GenomeInfoDb_1.43.2 dplyr_1.1.4
## [73] withr_3.0.2 BiocManager_1.30.25
## [75] Category_2.73.0 fastmap_1.2.0
## [77] GGally_2.2.1 caTools_1.18.3
## [79] digest_0.6.37 R6_2.5.1
## [81] colorspace_2.1-1 GO.db_3.20.0
## [83] gtools_3.9.5 dichromat_2.0-0.1
## [85] biomaRt_2.63.0 RSQLite_2.3.9
## [87] R.methodsS3_1.8.2 tidyr_1.3.1
## [89] data.table_1.16.4 rtracklayer_1.67.0
## [91] prettyunits_1.2.0 httr_1.4.7
## [93] htmlwidgets_1.6.4 S4Arrays_1.7.1
## [95] ggstats_0.7.0 pkgconfig_2.0.3
## [97] gtable_0.3.6 blob_1.2.4
## [99] hwriter_1.3.2.1 XVector_0.47.0
## [101] Glimma_2.17.0 sys_3.4.3
## [103] htmltools_0.5.8.1 RBGL_1.83.0
## [105] oligoClasses_1.69.0 GSEABase_1.69.0
## [107] ProtGenerics_1.39.1 scales_1.3.0
## [109] png_0.1-8 rstudioapi_0.17.1
## [111] reshape2_1.4.4 rjson_0.2.23
## [113] checkmate_2.3.2 curl_6.0.1
## [115] cachem_1.1.0 stringr_1.5.1
## [117] KernSmooth_2.23-24 parallel_4.4.2
## [119] foreign_0.8-87 restfulr_0.0.15
## [121] pillar_1.10.0 grid_4.4.2
## [123] vctrs_0.6.5 gplots_3.2.0
## [125] ff_4.5.0 dbplyr_2.5.0
## [127] xtable_1.8-4 cluster_2.1.8
## [129] htmlTable_2.4.3 Rgraphviz_2.51.0
## [131] evaluate_1.0.1 GenomicFeatures_1.59.1
## [133] cli_3.6.3 locfit_1.5-9.10
## [135] compiler_4.4.2 Rsamtools_2.23.1
## [137] rlang_1.1.4 crayon_1.5.3
## [139] labeling_0.4.3 affy_1.85.0
## [141] plyr_1.8.9 stringi_1.8.4
## [143] BiocParallel_1.41.0 txdbmaker_1.3.1
## [145] munsell_0.5.1 Biostrings_2.75.3
## [147] lazyeval_0.2.2 Matrix_1.7-1
## [149] BSgenome_1.75.0 hms_1.1.3
## [151] bit64_4.5.2 ggplot2_3.5.1
## [153] KEGGREST_1.47.0 statmod_1.5.0
## [155] SummarizedExperiment_1.37.0 memoise_2.0.1
## [157] affyio_1.77.1 bslib_0.8.0
## [159] bit_4.5.0.1