crossmeta streamlines the cross-platform meta-analysis of microarray data. For the analysis, you will need a list of Affymetrix, Illumina, and/or Agilent GSE numbers from GEO. All 21 species in the current homologene build are supported.

Obtaining Raw Data

Search GEO to find relevant microarray data for the meta-analysis. For this example, I searched for the PI3K inhibitor LY-294002. The search was filtered as follows:

This search produced 35 hits from which five were chosen. In practice, it is best to select all GSEs matching the necessary criteria (supplementary raw data files available, multiple samples for each treatment, and from either Affymetrix, Illumina, or Agilent single channel arrays).

After identifying GSEs for the meta-analysis, download and decompress the raw data as follows. For raw Illumina data only, you must check that it has the correct format (and edit it if needed).

library(crossmeta)
## 
## This data.table install has not detected OpenMP support. It will work but slower in single threaded mode.
# specify where data will be downloaded
data_dir <- file.path(getwd(), "data", "LY")

# gather all GSEs
gse_names  <- c("GSE9601", "GSE15069", "GSE50841", "GSE34817", "GSE29689")

# gather Illumina GSEs (see 'Checking Raw Illumina Data')
illum_names <- c("GSE50841", "GSE34817", "GSE29689")

# download raw data
# get_raw(gse_names, data_dir)

Checking Raw Illumina Data

To format raw Illumina data, I recommend that you download and set Sublime Text 2 as your default text editor. It has very nice regular expression capabilities. Here is a good regular expression cheat-sheat.

Raw illumina files will be in data_dir in a seperate folder for each GSE. They are usually .txt files and include non-normalized in their name. Ensure the following:

Also ensure that column names have the following format:

To open these files one at a time with your default text editor:

# this is why we gathered Illumina GSEs
open_raw_illum(illum_names, data_dir)

For GSE50841:

For GSE34817:

For GSE29689:

A bioconductor data package (lydata) is available where all the above was performed. This data package will be used for subsequent demonstrations.

library(lydata)

# location of raw data
data_dir <- system.file("extdata", package = "lydata")

Loading and Annotating Data

After downloading the raw data, it must be loaded and annotated. The necessary bioconductor annotation data packages will be downloaded as needed.

# reloads if previously called
esets <- load_raw(gse_names, data_dir)

If crossmeta does not know the bioconductor annotation data package for a given platform, entry will be requested. Use the given platform (GPL) to search online for the correct package name. For example, entry was requested for GSE29689 (platform GPL6883). A search for GPL6883 on GEO identified the title for this platform as Illumina HumanRef-8 v3.0 expression beadchip. A subsequent search on Bioconductor for illuminahuman identified the appropriate package as illuminaHumanv3.

If you can’t find the bioconductor annotation data package (or none exists), type enter with a blank entry and crossmeta will attempt annotation using entrez gene ids in the feature data from the study in question. If entrez ids are absent, annotation will fail. To proceed, I reccommend that you add entrez ids and then use crossmeta to map these to hgnc symbols. As an example, if annotation had failed for GSE15069:

library(Biobase)
library(AnnotationDbi)

# check feature data to see what columns are available
head(fData(esets$GSE15069))

# if using RStudio
# View(fData(esets$GSE15069))

# annotation package for appropriate species
library(org.Mm.eg.db)

# map from accession number to entrez gene ids
acnums  <- as.character(fData(esets$GSE15069)$GB_ACC)
enids   <- mapIds(org.Mm.eg.db, acnums, "ENTREZID", "ACCNUM")

# add 'GENE_ID' column with entrez ids
fData(esets$GSE15069)$GENE_ID <- enids 

# use crossmeta to map from entrez gene ids to homologous hgnc symbol
esets$GSE15069 <- symbol_annot(esets$GSE15069)

# to overwrite saved eset (to avoid repeating above)
saveRDS(esets$GSE15069, file.path(data_dir, "GSE15069", "GSE15069_eset.rds"))

Differential Expression

After loading and annotating the data, you may proceed with differential expression analysis:

anals <- diff_expr(esets, data_dir)

You will be prompted to type group names and select samples for each control and test group that you wish to compare. Once done for a study, click Done and you will be prompted to do the same for the next study. You can re-select a previous control group by selecting the group name in the drop down box. You can also view and delete current contrasts in the Contrasts tab.

If you need to look up experimental details for the study (e.g. group membership) Click the GEO button in the top left corner.

For Illumina samples, rely on the supplied titles to select groups as the accession numbers may be incorrect. The supplied titles are the headers from the raw data and may differ from those on GEO. As such, you may need to look in the individual sample records on GEO to identify which sample belongs to which group (not always possible).

If you need to re-run the above analysis, you can avoid having to reselect samples and rename groups:

# load auto-saved results of previous call to diff_expr
prev <- load_diff(gse_names, data_dir)

# supply prev to diff_expr
# anals <- diff_expr(esets, data_dir, prev_anals=prev)

Multi-dimensional scaling plots are generated for each GSE. These plots are generated from expression data with the effects of surrogate variables removed.

Non-GUI Selection

Using the graphical user interface for sample selection can be error-prone and time-consuming for GSEs with a large number of samples. For these cases, you may prefer to specify group membership of samples using sample information from the study in question. As an example:

library(Biobase)

# load eset
gse_name  <- c("GSE34817")
eset <- load_raw(gse_name, data_dir)

# inspect pData of eset
# View(pData(eset$GSE34817))  # if using RStudio
head(pData(eset$GSE34817))    # otherwise

# get group info from pData (differs based on eset)
group <- pData(eset$GSE34817)$characteristics_ch1.1

# make group names concise and valid
group <- gsub("treatment: ", "", group)
group <- make.names(group)

# add group to eset pData
pData(eset$GSE34817)$group <- group

# setup selections
sel <- setup_prev(eset, contrasts = "LY-DMSO")

# run differential expression analysis
anal <- diff_expr(eset, data_dir, prev_anal = sel)

Meta-Analysis

After differential expression analyses, overall effect sizes can be determined through meta-analysis. The meta-analysis method determines an overall standardized effect size and false discovery rate for each gene that is present in a specified fraction of studies (30% by default).

# re-load previous analyses if need to
anals <- load_diff(gse_names, data_dir)

# perform meta analysis
es <- es_meta(anals)

# for explanation of values
# ?es_meta

The meta-analysis method was adapted from GeneMeta. Differences include the use of moderated unbiased effect sizes calculated by metaMA, the calculation of false discovery rates by fdrtool, and the allowance for genes measured in only a fraction of studies.

One application of the signature generated by this meta-analysis method is to search for a drug, or combination of drugs that is predicted to reverse or mimic your signature. These drugs might reverse diseases or mimic healthy lifestyles. To predict a drug or drug combination to either mimic or reverse your signature, please see the ccmap (Combination Connectivity Maping) package.

If crossmeta has been usefull to you, please contribute your signature! Your contribution will be used to build a public database of microarray meta-analyses. To contribute:

# subject is the focus of the meta-analysis (e.g. drug/disease name)
contribute(anals, subject = "LY294002")

# Thank you!
sessionInfo()
## R version 3.3.2 (2016-10-31)
## Platform: x86_64-apple-darwin13.4.0 (64-bit)
## Running under: OS X Mavericks 10.9.5
## 
## locale:
## [1] C/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## attached base packages:
## [1] parallel  stats     graphics  grDevices utils     datasets  methods  
## [8] base     
## 
## other attached packages:
## [1] Biobase_2.34.0      BiocGenerics_0.20.0 lydata_1.0.0       
## [4] crossmeta_1.0.1    
## 
## loaded via a namespace (and not attached):
##  [1] Rcpp_0.12.8          metaMA_3.1.2         RColorBrewer_1.1-2  
##  [4] bitops_1.0-6         tools_3.3.2          digest_0.6.10       
##  [7] RSQLite_1.0.0        annotate_1.52.0      evaluate_0.10       
## [10] nlme_3.1-128         lattice_0.20-34      mgcv_1.8-16         
## [13] Matrix_1.2-7.1       DBI_0.5-1            shiny_0.14.2        
## [16] yaml_2.1.14          genefilter_1.56.0    stringr_1.1.0       
## [19] knitr_1.15.1         IRanges_2.8.1        S4Vectors_0.12.0    
## [22] stats4_3.3.2         rprojroot_1.1        grid_3.3.2          
## [25] data.table_1.9.8     R6_2.2.0             AnnotationDbi_1.36.0
## [28] fdrtool_1.2.15       survival_2.40-1      XML_3.98-1.5        
## [31] rmarkdown_1.2        limma_3.30.5         sva_3.22.0          
## [34] SMVar_1.3.3          magrittr_1.5         matrixStats_0.51.0  
## [37] splines_3.3.2        backports_1.0.4      htmltools_0.3.5     
## [40] mime_0.5             xtable_1.8-2         httpuv_1.3.3        
## [43] stringi_1.1.2        miniUI_0.1.1         RCurl_1.95-4.8