cTRAP: identifying candidate causal perturbations from differential gene expression data
Bernardo P. de Almeida & Nuno Saraiva-Agostinho
2020-10-09
Introduction
cTRAP is an R package designed to compare differential gene expression results with those from known cellular perturbations (such as gene knockdown, overexpression or small molecules) derived from the Connectivity Map (CMap; Subramanian et al., Cell 2017). Such analyses allow not only to infer the molecular causes of the observed difference in gene expression but also to identify small molecules that could drive or revert specific transcriptomic alterations.
To illustrate the package functionalities, we will use an example based on a gene knockdown dataset from the ENCODE project for which there is available RNA-seq data. After performing differential expression analyses to the matched-control sample, we will compare the respective transcriptomic changes with the ones caused by all CMap’s gene knockdown perturbations to identify which ones have similar or inverse transcriptomic changes to the observed ones. As a positive control, we expect to find the knock-down of the gene depleted in the ENCODE experiment as one of the most similar transcriptomic perturbations.
Getting started
To load the cTRAP package into your R environment type:
Load CMap perturbation data
We will use our differential gene expression metric to compare with CMap’s gene knock-down perturbations in the same cell line (HepG2). Note that this comparison can also be done to perturbations in a different cell line (or in all cell lines using the average result across cell lines).
To summarise conditions and check available data in CMap, we can use the following commands to download CMap metadata:
# Download CMap metadata (if not found in current directory)
cmapMetadata <- loadCMapData("cmapMetadata.txt", type="metadata")
## cmapMetadata.txt not found: downloading data...
## Extracting cmapMetadata.txt.gz...
## Loading CMap metadata from cmapMetadata.txt...
# Summarise conditions for all CMap perturbations
getCMapConditions(cmapMetadata)
## $perturbationType
## [1] "Compound"
## [2] "Peptides and other biological agents (e.g. cytokine)"
## [3] "shRNA for loss of function (LoF) of gene"
## [4] "Consensus signature from shRNAs targeting the same gene"
## [5] "cDNA for overexpression of wild-type gene"
## [6] "cDNA for overexpression of mutated gene"
##
## $cellLine
## [1] "A375" "A549" "A673" "AGS" "ASC" "BT20"
## [7] "CD34" "CL34" "CORL23" "COV644" "DV90" "EFO27"
## [13] "FIBRNPC" "H1299" "HA1E" "HCC15" "HCC515" "HCT116"
## [19] "HEC108" "HEK293T" "HEKTE" "HEPG2" "HL60" "HS27A"
## [25] "HS578T" "HT115" "HT29" "HUH7" "JHUEM2" "JURKAT"
## [31] "LOVO" "MCF10A" "MCF7" "MCH58" "MDAMB231" "MDST8"
## [37] "NCIH1694" "NCIH1836" "NCIH2073" "NCIH508" "NCIH596" "NCIH716"
## [43] "NEU" "NKDBA" "NOMO1" "NPC" "OV7" "PC3"
## [49] "PHH" "PL21" "RKO" "RMGI" "RMUGS" "SHSY5Y"
## [55] "SKB" "SKBR3" "SKL" "SKLU1" "SKM1" "SKMEL1"
## [61] "SKMEL28" "SNGM" "SNU1040" "SNUC4" "SNUC5" "SW480"
## [67] "SW620" "SW948" "T3M10" "THP1" "TYKNU" "U266"
## [73] "U2OS" "U937" "VCAP" "WSUDLCL2"
##
## $dosage
## [1] NA "0.1 %" "1 nM" "10 nM" "100 nM"
## [6] "500 nM" "150 ng" "200 ng" "300 ng" "0 ng/mL"
## [11] "0.01 ng/mL" "0.03 ng/mL" "0.1 ng/mL" "0.15 ng/mL" "0.2 ng/mL"
## [16] "0.3 ng/mL" "0.5 ng/mL" "1 ng/mL" "1.65 ng/mL" "2 ng/mL"
## [21] "5 ng/mL" "10 ng/mL" "15 ng/mL" "16 ng/mL" "20 ng/mL"
## [26] "25 ng/mL" "30 ng/mL" "40 ng/mL" "45 ng/mL" "50 ng/mL"
## [31] "80 ng/mL" "100 ng/mL" "150 ng/mL" "200 ng/mL" "250 ng/mL"
## [36] "400 ng/mL" "500 ng/mL" "800 ng/mL" "1000 ng/mL" "2000 ng/mL"
## [41] "2500 ng/mL" "3000 ng/mL" "5000 ng/mL" "8300 ng/mL" "10000 ng/mL"
## [46] "50000 ng/mL" "100000 ng/mL" "200000 ng/mL" "0.04 µM" "0.12 µM"
## [51] "0.37 µM" "0.41 µM" "1 µM" "1.11 µM" "1.23 µM"
## [56] "3 µM" "3.33 µM" "3.7 µM" "5 µM" "10 µM"
## [61] "11.11 µM" "20 µM" "30 µM" "33.33 µM" "40 µM"
## [66] "50 µM" "60 µM" "70 µM" "80 µM" "90 µM"
## [71] "100 µM" "1 µL" "1.5 µL" "2 µL" "3 µL"
## [76] "4 µL" "5 µL" "6 µL" "10 µL" "20 µL"
## [81] "0.1 ng/µL" "1 ng/µL" "3 ng/µL" "10 ng/µL" "100 ng/µL"
## [86] "300 ng/µL"
##
## $timepoint
## [1] "1 h" "2 h" "3 h" "4 h" "6 h" "24 h" "48 h" "72 h" "96 h"
## [10] "120 h" "144 h" "168 h"
# Summarise conditions for CMap perturbations in HepG2 cell line
getCMapConditions(cmapMetadata, cellLine="HepG2")
## $perturbationType
## [1] "Compound"
## [2] "Peptides and other biological agents (e.g. cytokine)"
## [3] "shRNA for loss of function (LoF) of gene"
## [4] "Consensus signature from shRNAs targeting the same gene"
## [5] "cDNA for overexpression of wild-type gene"
##
## $cellLine
## [1] "HEPG2"
##
## $dosage
## [1] NA "0.1 %" "10 nM" "100 nM" "500 nM"
## [6] "0 ng/mL" "0.01 ng/mL" "0.03 ng/mL" "0.1 ng/mL" "0.15 ng/mL"
## [11] "0.2 ng/mL" "0.3 ng/mL" "0.5 ng/mL" "1 ng/mL" "1.65 ng/mL"
## [16] "2 ng/mL" "5 ng/mL" "10 ng/mL" "15 ng/mL" "16 ng/mL"
## [21] "20 ng/mL" "25 ng/mL" "30 ng/mL" "40 ng/mL" "45 ng/mL"
## [26] "50 ng/mL" "80 ng/mL" "100 ng/mL" "150 ng/mL" "200 ng/mL"
## [31] "250 ng/mL" "400 ng/mL" "500 ng/mL" "800 ng/mL" "1000 ng/mL"
## [36] "2000 ng/mL" "2500 ng/mL" "3000 ng/mL" "5000 ng/mL" "8300 ng/mL"
## [41] "10000 ng/mL" "50000 ng/mL" "100000 ng/mL" "200000 ng/mL" "1.5 µL"
## [46] "2 µL" "0.04 µM" "0.12 µM" "0.37 µM" "0.41 µM"
## [51] "1 µM" "1.11 µM" "1.23 µM" "3 µM" "3.33 µM"
## [56] "3.7 µM" "5 µM" "10 µM" "11.11 µM" "20 µM"
## [61] "30 µM" "33.33 µM" "40 µM" "50 µM" "60 µM"
## [66] "70 µM" "80 µM" "90 µM" "100 µM"
##
## $timepoint
## [1] "2 h" "4 h" "6 h" "24 h" "96 h"
# Summarise conditions for a specific CMap perturbation in HepG2 cell line
getCMapConditions(
cmapMetadata, cellLine="HepG2",
perturbationType="Consensus signature from shRNAs targeting the same gene")
## $perturbationType
## [1] "Consensus signature from shRNAs targeting the same gene"
##
## $cellLine
## [1] "HEPG2"
##
## $dosage
## [1] "1.5 µL"
##
## $timepoint
## [1] "96 h"
Now, we will filter the metadata to CMap gene knockdown perturbations in HepG2 cell line and load associated gene information and differential gene expression data. Data is loaded based on the given filename (if no file with the given filename is available, data will be first downloaded).
Differential gene expression data for each CMap perturbation are available in normalised z-score values (read Subramanian et al., Cell 2017 for more details). As this file’s size is big (around 20GB), a prompt will ask you to confirm whether to start downloading the file.
Alternatively, you can download the file from the following link (do not forget to use the same filename as the argument of prepareCMapPerturbations()): ftp://ftp.ncbi.nlm.nih.gov/geo/series/GSE92nnn/GSE92742/suppl/GSE92742_Broad_LINCS_Level5_COMPZ.MODZ_n473647x12328.gctx.gz
# Filter CMap gene knockdown HepG2 data to be loaded
cmapMetadataKD <- filterCMapMetadata(
cmapMetadata, cellLine="HepG2",
perturbationType="Consensus signature from shRNAs targeting the same gene")
# Load filtered data (data will be downloaded if not found)
cmapPerturbationsKD <- prepareCMapPerturbations(
metadata=cmapMetadataKD, zscores="cmapZscores.gctx",
geneInfo="cmapGeneInfo.txt")
If interested in small molecules, the differential gene expression z-scores from CMap can be downloaded for each small molecule perturbation:
# Filter CMap gene small molecule HepG2 data to be loaded
cmapMetadataCompounds <- filterCMapMetadata(
cmapMetadata, cellLine="HepG2", perturbationType="Compound")
# Load filtered data (data will be downloaded if not found)
cmapPerturbationsCompounds <- prepareCMapPerturbations(
metadata=cmapMetadataCompounds, zscores="cmapZscores.gctx",
geneInfo="cmapGeneInfo.txt", compoundInfo="cmapCompoundInfo.txt")
Comparison with CMap perturbations
The rankSimilarPerturbations function compares the differential expression metric (the t-statistic, in this case) against the CMap perturbations’ z-scores using the available methods:
- Spearman’s correlation
- Pearson’s correlation
- Gene Set Enrichment Analysis (GSEA), where the most up- and down-regulated n genes from the user’s differential expression profile are used as gene sets (by default, n = 150 genes)
To compare against CMap knockdown perturbations using all the previous methods:
compareKD <- rankSimilarPerturbations(diffExprStat, cmapPerturbationsKD)
To compare against selected CMap small molecule perturbations:
compareCompounds <- rankSimilarPerturbations(diffExprStat,
cmapPerturbationsCompounds)
The output table contains the results of the comparison with each perturbation tested, including the test statistics (Spearman’s correlation coefficient, Pearson’s correlation coefficient and/or GSEA score), the respective p-value and the Benjamini-Hochberg-adjusted p-value (for correlation statistics only). When performing multiple methods, the rank product’s rank will be included to summarise other method’s rankings.
# Most positively associated perturbations (note that EIF4G1 knockdown is the
# 7th, 1st and 2nd most positively associated perturbation based on Spearman's
# correlation, Pearson's correlation and GSEA, respectively)
head(compareKD[order(spearman_rank, na.last=NA)], n=10)
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:MECP2:1.5 0.1930335 1.506067e-74 1.305258e-73
## 2: CGS001_HEPG2_96H:KIAA0196:1.5 0.1894301 8.237226e-72 5.354197e-71
## 3: CGS001_HEPG2_96H:SQRDL:1.5 0.1883210 5.589838e-71 2.906716e-70
## 4: CGS001_HEPG2_96H:PPIH:1.5 0.1863954 1.509735e-69 6.542184e-69
## 5: CGS001_HEPG2_96H:STAT1:1.5 0.1833382 2.626628e-67 9.756048e-67
## 6: CGS001_HEPG2_96H:COPS5:1.5 0.1775880 3.364592e-63 1.093493e-62
## 7: CGS001_HEPG2_96H:EIF4G1:1.5 0.1770993 7.406639e-63 2.139696e-62
## 8: CGS001_HEPG2_96H:MEST:1.5 0.1726479 8.816544e-60 2.292301e-59
## 9: CGS001_HEPG2_96H:KIF20A:1.5 0.1665159 1.114839e-55 2.415485e-55
## 10: CGS001_HEPG2_96H:TMEM5:1.5 0.1506335 8.936446e-46 1.452172e-45
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: 0.1756788 7.245930e-62 1.883942e-61 0.3903862 1
## 2: 0.1847352 2.514633e-68 9.340065e-68 0.3521034 2
## 3: 0.1718559 3.046859e-59 6.093718e-59 0.3998024 3
## 4: 0.1703630 3.104268e-58 5.380731e-58 0.4359134 4
## 5: 0.1894661 7.739198e-72 4.024383e-71 0.3765351 5
## 6: 0.1794790 1.553956e-64 5.050356e-64 0.4222756 6
## 7: 0.1915142 2.182595e-73 1.418686e-72 0.4861485 7
## 8: 0.1858475 3.830708e-69 1.659973e-68 0.4219693 8
## 9: 0.1786967 5.568601e-64 1.608707e-63 0.4566918 9
## 10: 0.1670226 5.177976e-56 8.414211e-56 0.4721782 10
## pearson_rank GSEA_rank rankProduct_rank
## 1: 7 12 2
## 2: 4 14 4
## 3: 9 11 8
## 4: 10 8 9
## 5: 2 13 5
## 6: 5 9 7
## 7: 1 2 1
## 8: 3 10 6
## 9: 6 7 10
## 10: 11 6 12
head(compareKD[order(pearson_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:EIF4G1:1.5 0.1770993 7.406639e-63 2.139696e-62
## 2: CGS001_HEPG2_96H:STAT1:1.5 0.1833382 2.626628e-67 9.756048e-67
## 3: CGS001_HEPG2_96H:MEST:1.5 0.1726479 8.816544e-60 2.292301e-59
## 4: CGS001_HEPG2_96H:KIAA0196:1.5 0.1894301 8.237226e-72 5.354197e-71
## 5: CGS001_HEPG2_96H:COPS5:1.5 0.1775880 3.364592e-63 1.093493e-62
## 6: CGS001_HEPG2_96H:KIF20A:1.5 0.1665159 1.114839e-55 2.415485e-55
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: 0.1915142 2.182595e-73 1.418686e-72 0.4861485 7
## 2: 0.1894661 7.739198e-72 4.024383e-71 0.3765351 5
## 3: 0.1858475 3.830708e-69 1.659973e-68 0.4219693 8
## 4: 0.1847352 2.514633e-68 9.340065e-68 0.3521034 2
## 5: 0.1794790 1.553956e-64 5.050356e-64 0.4222756 6
## 6: 0.1786967 5.568601e-64 1.608707e-63 0.4566918 9
## pearson_rank GSEA_rank rankProduct_rank
## 1: 1 2 1
## 2: 2 13 5
## 3: 3 10 6
## 4: 4 14 4
## 5: 5 9 7
## 6: 6 7 10
head(compareKD[order(GSEA_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:SKIV2L:1.5 0.1423207 5.305914e-41 8.114927e-41
## 2: CGS001_HEPG2_96H:EIF4G1:1.5 0.1770993 7.406639e-63 2.139696e-62
## 3: CGS001_HEPG2_96H:GTPBP8:1.5 0.1190220 4.210973e-29 4.760230e-29
## 4: CGS001_HEPG2_96H:HFE:1.5 0.1235293 3.098180e-31 3.661486e-31
## 5: CGS001_HEPG2_96H:UBAP2L:1.5 0.1309546 6.320554e-35 8.216721e-35
## 6: CGS001_HEPG2_96H:TMEM5:1.5 0.1506335 8.936446e-46 1.452172e-45
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: 0.1755377 9.078490e-62 2.145825e-61 0.5070024 11
## 2: 0.1915142 2.182595e-73 1.418686e-72 0.4861485 7
## 3: 0.1390818 3.229116e-39 3.816228e-39 0.4813972 14
## 4: 0.1499527 2.252417e-45 2.788707e-45 0.4813046 13
## 5: 0.1517482 1.948821e-46 2.533468e-46 0.4722054 12
## 6: 0.1670226 5.177976e-56 8.414211e-56 0.4721782 10
## pearson_rank GSEA_rank rankProduct_rank
## 1: 8 1 3
## 2: 1 2 1
## 3: 14 3 11
## 4: 13 4 13
## 5: 12 5 14
## 6: 11 6 12
head(compareKD[order(rankProduct_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:EIF4G1:1.5 0.1770993 7.406639e-63 2.139696e-62
## 2: CGS001_HEPG2_96H:MECP2:1.5 0.1930335 1.506067e-74 1.305258e-73
## 3: CGS001_HEPG2_96H:SKIV2L:1.5 0.1423207 5.305914e-41 8.114927e-41
## 4: CGS001_HEPG2_96H:KIAA0196:1.5 0.1894301 8.237226e-72 5.354197e-71
## 5: CGS001_HEPG2_96H:STAT1:1.5 0.1833382 2.626628e-67 9.756048e-67
## 6: CGS001_HEPG2_96H:MEST:1.5 0.1726479 8.816544e-60 2.292301e-59
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: 0.1915142 2.182595e-73 1.418686e-72 0.4861485 7
## 2: 0.1756788 7.245930e-62 1.883942e-61 0.3903862 1
## 3: 0.1755377 9.078490e-62 2.145825e-61 0.5070024 11
## 4: 0.1847352 2.514633e-68 9.340065e-68 0.3521034 2
## 5: 0.1894661 7.739198e-72 4.024383e-71 0.3765351 5
## 6: 0.1858475 3.830708e-69 1.659973e-68 0.4219693 8
## pearson_rank GSEA_rank rankProduct_rank
## 1: 1 2 1
## 2: 7 12 2
## 3: 8 1 3
## 4: 4 14 4
## 5: 2 13 5
## 6: 3 10 6
# Most negatively associated perturbations
tail(compareKD[order(spearman_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:MAF:1.5 -0.1581847 2.351511e-50 4.075952e-50
## 2: CGS001_HEPG2_96H:ZBTB24:1.5 -0.1632375 1.500986e-53 2.787546e-53
## 3: CGS001_HEPG2_96H:EHMT2:1.5 -0.1640525 4.479303e-54 8.958605e-54
## 4: CGS001_HEPG2_96H:NDUFB6:1.5 -0.1677880 1.618399e-56 3.825307e-56
## 5: CGS001_HEPG2_96H:CDCA8:1.5 -0.1941862 1.951544e-75 2.537007e-74
## 6: CGS001_HEPG2_96H:EYA1:1.5 -0.1993531 1.747554e-79 4.543641e-78
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: -0.1717844 3.406704e-59 6.326737e-59 0.0000000 21
## 2: -0.1948077 6.448588e-76 8.383165e-75 0.0000000 22
## 3: -0.1590654 6.637816e-51 9.587957e-51 -0.3716818 23
## 4: -0.1646057 1.964288e-54 3.004205e-54 0.0000000 24
## 5: -0.1926944 2.740646e-74 2.375227e-73 -0.4739211 25
## 6: -0.1952303 3.030978e-76 7.880542e-75 -0.3776731 26
## pearson_rank GSEA_rank rankProduct_rank
## 1: 22 16 19
## 2: 25 16 22
## 3: 20 18 21
## 4: 21 16 20
## 5: 24 26 26
## 6: 26 19 25
tail(compareKD[order(pearson_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:NDUFB6:1.5 -0.1677880 1.618399e-56 3.825307e-56
## 2: CGS001_HEPG2_96H:MAF:1.5 -0.1581847 2.351511e-50 4.075952e-50
## 3: CGS001_HEPG2_96H:SULT1A2:1.5 -0.1414914 1.533416e-40 2.214934e-40
## 4: CGS001_HEPG2_96H:CDCA8:1.5 -0.1941862 1.951544e-75 2.537007e-74
## 5: CGS001_HEPG2_96H:ZBTB24:1.5 -0.1632375 1.500986e-53 2.787546e-53
## 6: CGS001_HEPG2_96H:EYA1:1.5 -0.1993531 1.747554e-79 4.543641e-78
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: -0.1646057 1.964288e-54 3.004205e-54 0.0000000 24
## 2: -0.1717844 3.406704e-59 6.326737e-59 0.0000000 21
## 3: -0.1742848 6.666242e-61 1.444352e-60 -0.4086520 20
## 4: -0.1926944 2.740646e-74 2.375227e-73 -0.4739211 25
## 5: -0.1948077 6.448588e-76 8.383165e-75 0.0000000 22
## 6: -0.1952303 3.030978e-76 7.880542e-75 -0.3776731 26
## pearson_rank GSEA_rank rankProduct_rank
## 1: 21 16 20
## 2: 22 16 19
## 3: 23 20 24
## 4: 24 26 26
## 5: 25 16 22
## 6: 26 19 25
tail(compareKD[order(GSEA_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:PLOD2:1.5 -0.12393601 1.970762e-31 2.439991e-31
## 2: CGS001_HEPG2_96H:SHB:1.5 -0.11094246 1.768452e-25 1.915823e-25
## 3: CGS001_HEPG2_96H:GNAI2:1.5 -0.05956052 2.293513e-08 2.293513e-08
## 4: CGS001_HEPG2_96H:SIAH2:1.5 -0.07825242 2.030400e-13 2.111616e-13
## 5: CGS001_HEPG2_96H:DHX16:1.5 -0.14109904 2.527811e-40 3.459110e-40
## 6: CGS001_HEPG2_96H:CDCA8:1.5 -0.19418619 1.951544e-75 2.537007e-74
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: -0.13259151 9.070613e-36 1.025374e-35 -0.4130739 18
## 2: -0.12875045 8.300805e-34 8.992538e-34 -0.4131576 17
## 3: -0.08923031 5.233713e-17 5.233713e-17 -0.4166373 15
## 4: -0.11367900 1.119976e-26 1.164775e-26 -0.4224346 16
## 5: -0.15642416 2.883756e-49 3.946193e-49 -0.4379221 19
## 6: -0.19269443 2.740646e-74 2.375227e-73 -0.4739211 25
## pearson_rank GSEA_rank rankProduct_rank
## 1: 18 21 18
## 2: 17 22 17
## 3: 15 23 15
## 4: 16 24 16
## 5: 19 25 23
## 6: 24 26 26
tail(compareKD[order(rankProduct_rank, na.last=NA)])
## gene_perturbation spearman_coef spearman_pvalue spearman_qvalue
## 1: CGS001_HEPG2_96H:EHMT2:1.5 -0.1640525 4.479303e-54 8.958605e-54
## 2: CGS001_HEPG2_96H:ZBTB24:1.5 -0.1632375 1.500986e-53 2.787546e-53
## 3: CGS001_HEPG2_96H:DHX16:1.5 -0.1410990 2.527811e-40 3.459110e-40
## 4: CGS001_HEPG2_96H:SULT1A2:1.5 -0.1414914 1.533416e-40 2.214934e-40
## 5: CGS001_HEPG2_96H:EYA1:1.5 -0.1993531 1.747554e-79 4.543641e-78
## 6: CGS001_HEPG2_96H:CDCA8:1.5 -0.1941862 1.951544e-75 2.537007e-74
## pearson_coef pearson_pvalue pearson_qvalue GSEA spearman_rank
## 1: -0.1590654 6.637816e-51 9.587957e-51 -0.3716818 23
## 2: -0.1948077 6.448588e-76 8.383165e-75 0.0000000 22
## 3: -0.1564242 2.883756e-49 3.946193e-49 -0.4379221 19
## 4: -0.1742848 6.666242e-61 1.444352e-60 -0.4086520 20
## 5: -0.1952303 3.030978e-76 7.880542e-75 -0.3776731 26
## 6: -0.1926944 2.740646e-74 2.375227e-73 -0.4739211 25
## pearson_rank GSEA_rank rankProduct_rank
## 1: 20 18 21
## 2: 25 16 22
## 3: 19 25 23
## 4: 23 20 24
## 5: 26 19 25
## 6: 24 26 26
# Plot list of compared pertubations
plot(compareKD, method="spearman", n=c(10, 3))
plot(compareKD, method="pearson")
plot(compareKD, method="gsea")
plot(compareKD, method="rankProduct")
For small molecules:
# Most positively and negatively associated perturbations
compareCompounds[order(rankProduct_rank, na.last=NA)]
## compound_perturbation spearman_coef
## 1: CVD001_HEPG2_24H:BRD-A14014306-001-01-1:4.1 0.225335666
## 2: CVD001_HEPG2_24H:BRD-K84595254-001-03-0:4.9444 0.085133810
## 3: CVD001_HEPG2_24H:BRD-K62810658-001-05-6:4.6768 -0.050201852
## 4: CVD001_HEPG2_24H:BRD-K41172353-001-01-4:4.7 0.005161915
## 5: CVD001_HEPG2_24H:BRD-K60476892-001-02-1:4.1072 -0.077832390
## 6: CVD001_HEPG2_24H:BRD-K96188950-001-04-5:4.3967 -0.037174082
## 7: CVD001_HEPG2_24H:BRD-K84389640-001-01-5:4.225 -0.078331814
## 8: CVD001_HEPG2_24H:BRD-K77508012-001-01-9:6.025 -0.094208866
## 9: CVD001_HEPG2_24H:BRD-K31030218-001-01-1:4.25 -0.125531451
## 10: CVD001_HEPG2_24H:BRD-K94818765-001-01-0:4.8 -0.113418048
## 11: CVD001_HEPG2_24H:BRD-A65142661-034-01-8:5.35 -0.164686339
## spearman_pvalue spearman_qvalue pearson_coef pearson_pvalue pearson_qvalue
## 1: 1.361508e-101 1.497659e-100 0.22640668 1.442316e-102 1.586548e-101
## 2: 1.294659e-15 2.373541e-15 0.06834399 1.415829e-10 2.224875e-10
## 3: 2.489663e-06 3.042921e-06 -0.02551843 1.673267e-02 1.840594e-02
## 4: 6.284641e-01 6.284641e-01 -0.01267514 2.347404e-01 2.347404e-01
## 5: 2.727173e-13 3.749863e-13 -0.06254059 4.400100e-09 6.050137e-09
## 6: 4.903648e-04 5.394013e-04 -0.04580625 1.737439e-05 2.123537e-05
## 7: 1.919930e-13 3.017033e-13 -0.08264025 8.485519e-15 1.555679e-14
## 8: 8.674931e-19 1.908485e-18 -0.08283071 7.364690e-15 1.555679e-14
## 9: 3.293334e-32 1.207556e-31 -0.12054061 8.215231e-30 3.012251e-29
## 10: 1.461350e-26 4.018714e-26 -0.11053910 2.640853e-25 7.262345e-25
## 11: 1.741438e-54 9.577908e-54 -0.14797060 3.242185e-44 1.783202e-43
## GSEA spearman_rank pearson_rank GSEA_rank rankProduct_rank
## 1: 0.4932836 1 1 1.0 1
## 2: 0.2179143 2 2 3.0 2
## 3: 0.2304579 5 4 2.0 3
## 4: 0.0000000 3 3 5.5 4
## 5: 0.0000000 6 6 5.5 5
## 6: -0.2821337 4 5 10.0 6
## 7: 0.0000000 7 7 5.5 7
## 8: -0.2442628 8 8 8.0 8
## 9: 0.0000000 10 10 5.5 9
## 10: -0.2621164 9 9 9.0 10
## 11: -0.3381341 11 11 11.0 11
plot(compareCompounds, method="rankProduct")
The Gene Set Enrichment Analysis (GSEA) score is based on the Weighted Connectivity Score (WTCS), a composite and bi-directional version of the weighted Kolmogorov-Smirnov enrichment statistic (ES) (Subramanian et al., Cell 2017).
To calculate the GSEA score, GSEA is run for the most up- and down-regulated genes from the user’s differential expression profile. The GSEA score is the mean between EStop and ESbottom (however, if EStop and ESbottom have the same sign, the GSEA score is 0).
If a perturbation has a similar differential expression profile to our data (higher GSEA score), we expect to see the most up-regulated (down-regulated) genes in the perturbation enriched in the top (bottom) n differentially expressed genes from our data.
Information on perturbations
To get associated information as made available from CMap:
# Information on the EIF4G1 knockdown perturbation
EIF4G1knockdown <- grep("EIF4G1", compareKD[[1]], value=TRUE)
print(compareKD, EIF4G1knockdown)
## $metadata
## sig_id pert_id pert_iname pert_type cell_id
## 1: CGS001_HEPG2_96H:EIF4G1:1.5 CGS001-1981 EIF4G1 trt_sh.cgs HEPG2
## pert_dose pert_dose_unit pert_idose pert_time pert_time_unit pert_itime
## 1: 1.5 microL 1.5 microL 96 h 96 h
## distil_id
## 1: KDA004_HEPG2_96H:TRCN0000061769:-666|KDA004_HEPG2_96H:TRCN0000061770:-666|KDA004_HEPG2_96H:TRCN0000061772:-666
# Information on the top 10 most similar compound perturbations (based on
# Spearman's correlation)
print(compareKD[order(rankProduct_rank, na.last=NA)], 1:10)
## $metadata
## sig_id pert_id pert_iname pert_type cell_id
## 1: CGS001_HEPG2_96H:COPS5:1.5 CGS001-10987 COPS5 trt_sh.cgs HEPG2
## 2: CGS001_HEPG2_96H:EIF4G1:1.5 CGS001-1981 EIF4G1 trt_sh.cgs HEPG2
## 3: CGS001_HEPG2_96H:KIAA0196:1.5 CGS001-9897 KIAA0196 trt_sh.cgs HEPG2
## 4: CGS001_HEPG2_96H:KIF20A:1.5 CGS001-10112 KIF20A trt_sh.cgs HEPG2
## 5: CGS001_HEPG2_96H:MECP2:1.5 CGS001-4204 MECP2 trt_sh.cgs HEPG2
## 6: CGS001_HEPG2_96H:MEST:1.5 CGS001-4232 MEST trt_sh.cgs HEPG2
## 7: CGS001_HEPG2_96H:PPIH:1.5 CGS001-10465 PPIH trt_sh.cgs HEPG2
## 8: CGS001_HEPG2_96H:SKIV2L:1.5 CGS001-6499 SKIV2L trt_sh.cgs HEPG2
## 9: CGS001_HEPG2_96H:SQRDL:1.5 CGS001-58472 SQRDL trt_sh.cgs HEPG2
## 10: CGS001_HEPG2_96H:STAT1:1.5 CGS001-6772 STAT1 trt_sh.cgs HEPG2
## pert_dose pert_dose_unit pert_idose pert_time pert_time_unit pert_itime
## 1: 1.5 microL 1.5 microL 96 h 96 h
## 2: 1.5 microL 1.5 microL 96 h 96 h
## 3: 1.5 microL 1.5 microL 96 h 96 h
## 4: 1.5 microL 1.5 microL 96 h 96 h
## 5: 1.5 microL 1.5 microL 96 h 96 h
## 6: 1.5 microL 1.5 microL 96 h 96 h
## 7: 1.5 microL 1.5 microL 96 h 96 h
## 8: 1.5 microL 1.5 microL 96 h 96 h
## 9: 1.5 microL 1.5 microL 96 h 96 h
## 10: 1.5 microL 1.5 microL 96 h 96 h
## distil_id
## 1: KDB009_HEPG2_96H:TRCN0000019200:-666|KDB009_HEPG2_96H:TRCN0000019201:-666|KDB009_HEPG2_96H:TRCN0000019202:-666
## 2: KDA004_HEPG2_96H:TRCN0000061769:-666|KDA004_HEPG2_96H:TRCN0000061770:-666|KDA004_HEPG2_96H:TRCN0000061772:-666
## 3: KDB010_HEPG2_96H:TRCN0000128018:-666|KDB010_HEPG2_96H:TRCN0000129686:-666|KDB010_HEPG2_96H:TRCN0000131227:-666
## 4: KDB009_HEPG2_96H:TRCN0000116523:-666|KDB009_HEPG2_96H:TRCN0000116524:-666|KDB009_HEPG2_96H:TRCN0000116525:-666
## 5: KDA003_HEPG2_96H:TRCN0000021241:-666|KDA003_HEPG2_96H:TRCN0000021242:-666
## 6: KDB008_HEPG2_96H:TRCN0000075318:-666|KDB008_HEPG2_96H:TRCN0000075320:-666|KDB008_HEPG2_96H:TRCN0000075321:-666
## 7: KDD006_HEPG2_96H:TRCN0000049389:-666|KDD006_HEPG2_96H:TRCN0000049390:-666
## 8: KDB008_HEPG2_96H:TRCN0000051813:-666|KDB008_HEPG2_96H:TRCN0000051815:-666|KDB008_HEPG2_96H:TRCN0000051816:-666
## 9: KDB009_HEPG2_96H:TRCN0000039004:-666|KDB009_HEPG2_96H:TRCN0000039005:-666|KDB009_HEPG2_96H:TRCN0000039007:-666
## 10: KDA005_HEPG2_96H:TRCN0000004265:-666|KDB007_HEPG2_96H:TRCN0000004265:-666|KDD006_HEPG2_96H:TRCN0000004265:-666|KDA005_HEPG2_96H:TRCN0000004266:-666|KDB007_HEPG2_96H:TRCN0000004266:-666|KDD006_HEPG2_96H:TRCN0000004266:-666|KDA005_HEPG2_96H:TRCN0000004267:-666|KDB007_HEPG2_96H:TRCN0000004267:-666
# Get table with all information available (including ranks, metadata, compound
# information, etc.)
table <- as.table(compareKD)
head(table)
## gene_perturbation spearman_coef pearson_coef GSEA
## 1: CGS001_HEPG2_96H:EIF4G1:1.5 0.1770993 0.1915142 0.4861485
## 2: CGS001_HEPG2_96H:MECP2:1.5 0.1930335 0.1756788 0.3903862
## 3: CGS001_HEPG2_96H:SKIV2L:1.5 0.1423207 0.1755377 0.5070024
## 4: CGS001_HEPG2_96H:KIAA0196:1.5 0.1894301 0.1847352 0.3521034
## 5: CGS001_HEPG2_96H:STAT1:1.5 0.1833382 0.1894661 0.3765351
## 6: CGS001_HEPG2_96H:MEST:1.5 0.1726479 0.1858475 0.4219693
## spearman_rank pearson_rank GSEA_rank rankProduct_rank pert_id pert_iname
## 1: 7 1 2 1 CGS001-1981 EIF4G1
## 2: 1 7 12 2 CGS001-4204 MECP2
## 3: 11 8 1 3 CGS001-6499 SKIV2L
## 4: 2 4 14 4 CGS001-9897 KIAA0196
## 5: 5 2 13 5 CGS001-6772 STAT1
## 6: 8 3 10 6 CGS001-4232 MEST
## pert_type cell_id pert_idose pert_itime pr_gene_id
## 1: trt_sh.cgs HEPG2 1.5 microL 96 h 1981
## 2: trt_sh.cgs HEPG2 1.5 microL 96 h 4204
## 3: trt_sh.cgs HEPG2 1.5 microL 96 h 6499
## 4: trt_sh.cgs HEPG2 1.5 microL 96 h 9897
## 5: trt_sh.cgs HEPG2 1.5 microL 96 h 6772
## 6: trt_sh.cgs HEPG2 1.5 microL 96 h 4232
## pr_gene_title pr_is_lm pr_is_bing
## 1: eukaryotic translation initiation factor 4 gamma, 1 1 1
## 2: methyl-CpG binding protein 2 0 1
## 3: Ski2 like RNA helicase 1 1
## 4: KIAA0196 1 1
## 5: signal transducer and activator of transcription 1 1 1
## 6: mesoderm specific transcript 1 1
# Obtain available raw information from compared perturbations
names(attributes(compareKD)) # Data available in compared perturbations
## [1] "class" "row.names" ".internal.selfref"
## [4] "names" "metadata" "geneInfo"
## [7] "input" "rankingInfo" "geneset"
## [10] "runtime"
attr(compareKD, "metadata") # Perturbation metadata
## sig_id pert_id pert_iname pert_type cell_id
## 1: CGS001_HEPG2_96H:CDCA8:1.5 CGS001-55143 CDCA8 trt_sh.cgs HEPG2
## 2: CGS001_HEPG2_96H:COPS5:1.5 CGS001-10987 COPS5 trt_sh.cgs HEPG2
## 3: CGS001_HEPG2_96H:DHX16:1.5 CGS001-8449 DHX16 trt_sh.cgs HEPG2
## 4: CGS001_HEPG2_96H:EHMT2:1.5 CGS001-10919 EHMT2 trt_sh.cgs HEPG2
## 5: CGS001_HEPG2_96H:EIF4G1:1.5 CGS001-1981 EIF4G1 trt_sh.cgs HEPG2
## 6: CGS001_HEPG2_96H:EYA1:1.5 CGS001-2138 EYA1 trt_sh.cgs HEPG2
## 7: CGS001_HEPG2_96H:GNAI2:1.5 CGS001-2771 GNAI2 trt_sh.cgs HEPG2
## 8: CGS001_HEPG2_96H:GTPBP8:1.5 CGS001-29083 GTPBP8 trt_sh.cgs HEPG2
## 9: CGS001_HEPG2_96H:HFE:1.5 CGS001-3077 HFE trt_sh.cgs HEPG2
## 10: CGS001_HEPG2_96H:KIAA0196:1.5 CGS001-9897 KIAA0196 trt_sh.cgs HEPG2
## 11: CGS001_HEPG2_96H:KIF20A:1.5 CGS001-10112 KIF20A trt_sh.cgs HEPG2
## 12: CGS001_HEPG2_96H:MAF:1.5 CGS001-4094 MAF trt_sh.cgs HEPG2
## 13: CGS001_HEPG2_96H:MECP2:1.5 CGS001-4204 MECP2 trt_sh.cgs HEPG2
## 14: CGS001_HEPG2_96H:MEST:1.5 CGS001-4232 MEST trt_sh.cgs HEPG2
## 15: CGS001_HEPG2_96H:NDUFB6:1.5 CGS001-4712 NDUFB6 trt_sh.cgs HEPG2
## 16: CGS001_HEPG2_96H:PLOD2:1.5 CGS001-5352 PLOD2 trt_sh.cgs HEPG2
## 17: CGS001_HEPG2_96H:PPIH:1.5 CGS001-10465 PPIH trt_sh.cgs HEPG2
## 18: CGS001_HEPG2_96H:SHB:1.5 CGS001-6461 SHB trt_sh.cgs HEPG2
## 19: CGS001_HEPG2_96H:SIAH2:1.5 CGS001-6478 SIAH2 trt_sh.cgs HEPG2
## 20: CGS001_HEPG2_96H:SKIV2L:1.5 CGS001-6499 SKIV2L trt_sh.cgs HEPG2
## 21: CGS001_HEPG2_96H:SQRDL:1.5 CGS001-58472 SQRDL trt_sh.cgs HEPG2
## 22: CGS001_HEPG2_96H:STAT1:1.5 CGS001-6772 STAT1 trt_sh.cgs HEPG2
## 23: CGS001_HEPG2_96H:SULT1A2:1.5 CGS001-6799 SULT1A2 trt_sh.cgs HEPG2
## 24: CGS001_HEPG2_96H:TMEM5:1.5 CGS001-10329 TMEM5 trt_sh.cgs HEPG2
## 25: CGS001_HEPG2_96H:UBAP2L:1.5 CGS001-9898 UBAP2L trt_sh.cgs HEPG2
## 26: CGS001_HEPG2_96H:ZBTB24:1.5 CGS001-9841 ZBTB24 trt_sh.cgs HEPG2
## sig_id pert_id pert_iname pert_type cell_id
## pert_dose pert_dose_unit pert_idose pert_time pert_time_unit pert_itime
## 1: 1.5 microL 1.5 microL 96 h 96 h
## 2: 1.5 microL 1.5 microL 96 h 96 h
## 3: 1.5 microL 1.5 microL 96 h 96 h
## 4: 1.5 microL 1.5 microL 96 h 96 h
## 5: 1.5 microL 1.5 microL 96 h 96 h
## 6: 1.5 microL 1.5 microL 96 h 96 h
## 7: 1.5 microL 1.5 microL 96 h 96 h
## 8: 1.5 microL 1.5 microL 96 h 96 h
## 9: 1.5 microL 1.5 microL 96 h 96 h
## 10: 1.5 microL 1.5 microL 96 h 96 h
## 11: 1.5 microL 1.5 microL 96 h 96 h
## 12: 1.5 microL 1.5 microL 96 h 96 h
## 13: 1.5 microL 1.5 microL 96 h 96 h
## 14: 1.5 microL 1.5 microL 96 h 96 h
## 15: 1.5 microL 1.5 microL 96 h 96 h
## 16: 1.5 microL 1.5 microL 96 h 96 h
## 17: 1.5 microL 1.5 microL 96 h 96 h
## 18: 1.5 microL 1.5 microL 96 h 96 h
## 19: 1.5 microL 1.5 microL 96 h 96 h
## 20: 1.5 microL 1.5 microL 96 h 96 h
## 21: 1.5 microL 1.5 microL 96 h 96 h
## 22: 1.5 microL 1.5 microL 96 h 96 h
## 23: 1.5 microL 1.5 microL 96 h 96 h
## 24: 1.5 microL 1.5 microL 96 h 96 h
## 25: 1.5 microL 1.5 microL 96 h 96 h
## 26: 1.5 microL 1.5 microL 96 h 96 h
## pert_dose pert_dose_unit pert_idose pert_time pert_time_unit pert_itime
## distil_id
## 1: KDA003_HEPG2_96H:TRCN0000007898:-666|KDA003_HEPG2_96H:TRCN0000007899:-666|KDA003_HEPG2_96H:TRCN0000007900:-666
## 2: KDB009_HEPG2_96H:TRCN0000019200:-666|KDB009_HEPG2_96H:TRCN0000019201:-666|KDB009_HEPG2_96H:TRCN0000019202:-666
## 3: KDB010_HEPG2_96H:TRCN0000001123:-666|KDB010_HEPG2_96H:TRCN0000001124:-666|KDB010_HEPG2_96H:TRCN0000001125:-666
## 4: KDA002_HEPG2_96H:TRCN0000115667:-666|KDA002_HEPG2_96H:TRCN0000115669:-666|KDA002_HEPG2_96H:TRCN0000115671:-666
## 5: KDA004_HEPG2_96H:TRCN0000061769:-666|KDA004_HEPG2_96H:TRCN0000061770:-666|KDA004_HEPG2_96H:TRCN0000061772:-666
## 6: KDC008_HEPG2_96H:TRCN0000083443:-666|KDC008_HEPG2_96H:TRCN0000083446:-666|KDC008_HEPG2_96H:TRCN0000303461:-666
## 7: KDA006_HEPG2_96H:TRCN0000029514:-666|KDB003_HEPG2_96H:TRCN0000029514:-666|KDA006_HEPG2_96H:TRCN0000029517:-666|KDB003_HEPG2_96H:TRCN0000029517:-666|KDA006_HEPG2_96H:TRCN0000278333:-666|KDB003_HEPG2_96H:TRCN0000029518:-666
## 8: KDB001_HEPG2_96H:TRCN0000343725:-666|KDB001_HEPG2_96H:TRCN0000343727:-666|KDB001_HEPG2_96H:TRCN0000343728:-666
## 9: KDB008_HEPG2_96H:TRCN0000060018:-666|KDB008_HEPG2_96H:TRCN0000060019:-666|KDB008_HEPG2_96H:TRCN0000060022:-666
## 10: KDB010_HEPG2_96H:TRCN0000128018:-666|KDB010_HEPG2_96H:TRCN0000129686:-666|KDB010_HEPG2_96H:TRCN0000131227:-666
## 11: KDB009_HEPG2_96H:TRCN0000116523:-666|KDB009_HEPG2_96H:TRCN0000116524:-666|KDB009_HEPG2_96H:TRCN0000116525:-666
## 12: KDC001_HEPG2_96H:TRCN0000000254:-666|KDC001_HEPG2_96H:TRCN0000000256:-666|KDC001_HEPG2_96H:TRCN0000000258:-666
## 13: KDA003_HEPG2_96H:TRCN0000021241:-666|KDA003_HEPG2_96H:TRCN0000021242:-666
## 14: KDB008_HEPG2_96H:TRCN0000075318:-666|KDB008_HEPG2_96H:TRCN0000075320:-666|KDB008_HEPG2_96H:TRCN0000075321:-666
## 15: KDB010_HEPG2_96H:TRCN0000028409:-666|KDB010_HEPG2_96H:TRCN0000028417:-666|KDB010_HEPG2_96H:TRCN0000028428:-666
## 16: KDC010_HEPG2_96H:TRCN0000064808:-666|KDC010_HEPG2_96H:TRCN0000064809:-666|KDC010_HEPG2_96H:TRCN0000064810:-666
## 17: KDD006_HEPG2_96H:TRCN0000049389:-666|KDD006_HEPG2_96H:TRCN0000049390:-666
## 18: KDB001_HEPG2_96H:TRCN0000149080:-666|KDB001_HEPG2_96H:TRCN0000282026:-666|KDB001_HEPG2_96H:TRCN0000285376:-666
## 19: KDA005_HEPG2_96H:TRCN0000007415:-666|KDA005_HEPG2_96H:TRCN0000007416:-666|KDA005_HEPG2_96H:TRCN0000007418:-666
## 20: KDB008_HEPG2_96H:TRCN0000051813:-666|KDB008_HEPG2_96H:TRCN0000051815:-666|KDB008_HEPG2_96H:TRCN0000051816:-666
## 21: KDB009_HEPG2_96H:TRCN0000039004:-666|KDB009_HEPG2_96H:TRCN0000039005:-666|KDB009_HEPG2_96H:TRCN0000039007:-666
## 22: KDA005_HEPG2_96H:TRCN0000004265:-666|KDB007_HEPG2_96H:TRCN0000004265:-666|KDD006_HEPG2_96H:TRCN0000004265:-666|KDA005_HEPG2_96H:TRCN0000004266:-666|KDB007_HEPG2_96H:TRCN0000004266:-666|KDD006_HEPG2_96H:TRCN0000004266:-666|KDA005_HEPG2_96H:TRCN0000004267:-666|KDB007_HEPG2_96H:TRCN0000004267:-666
## 23: KDA001_HEPG2_96H:TRCN0000035200:-666|KDA001_HEPG2_96H:TRCN0000035202:-666|KDA001_HEPG2_96H:TRCN0000035203:-666
## 24: KDB001_HEPG2_96H:TRCN0000135504:-666|KDB001_HEPG2_96H:TRCN0000278433:-666
## 25: KDA003_HEPG2_96H:TRCN0000007677:-666|KDA003_HEPG2_96H:TRCN0000007680:-666|KDA003_HEPG2_96H:TRCN0000007681:-666
## 26: KDB008_HEPG2_96H:TRCN0000107435:-666|KDB008_HEPG2_96H:TRCN0000107437:-666|KDB008_HEPG2_96H:TRCN0000107438:-666
## distil_id
attr(compareKD, "geneInfo") # Gene information
## pr_gene_id pr_gene_symbol
## 1: 780 DDR1
## 2: 7849 PAX8
## 3: 2978 GUCA1A
## 4: 2049 EPHB3
## 5: 2101 ESRRA
## ---
## 12324: 4034 LRCH4
## 12325: 399664 MEX3D
## 12326: 54869 EPS8L1
## 12327: 90379 DCAF15
## 12328: 60 ACTB
## pr_gene_title
## 1: discoidin domain receptor tyrosine kinase 1
## 2: paired box 8
## 3: guanylate cyclase activator 1A
## 4: EPH receptor B3
## 5: estrogen related receptor alpha
## ---
## 12324: leucine-rich repeats and calponin homology (CH) domain containing 4
## 12325: mex-3 RNA binding family member D
## 12326: EPS8 like 1
## 12327: DDB1 and CUL4 associated factor 15
## 12328: actin, beta
## pr_is_lm pr_is_bing
## 1: 1 1
## 2: 1 1
## 3: 0 0
## 4: 0 1
## 5: 0 1
## ---
## 12324: 0 1
## 12325: 0 1
## 12326: 0 1
## 12327: 0 1
## 12328: 0 1
Relationship plots
To analyse the relationship between the user-provided differential expression profile with that associated with a specific perturbation, scatter plots (for Spearman and Pearson analyses) and GSEA plots are available.
For instance, let’s plot the relationship between EIF4G1 shRNA knockdown from ENCODE with the CMap knockdown perturbations:
# Plot relationship with EIF4G1 knockdown from CMap
plot(cmapPerturbationsKD, EIF4G1knockdown, diffExprStat, "spearman")
plot(cmapPerturbationsKD, EIF4G1knockdown, diffExprStat, "pearson")
plot(cmapPerturbationsKD, EIF4G1knockdown, diffExprStat, "gsea")
# Plot relationship with most negatively associated perturbation
plot(cmapPerturbationsKD,
tail(compareKD[order(spearman_rank, na.last=NA)], 1),
diffExprStat, "spearman")
plot(cmapPerturbationsKD,
tail(compareKD[order(pearson_rank, na.last=NA)], 1),
diffExprStat, "pearson")
plot(cmapPerturbationsKD,
tail(compareKD[order(GSEA_rank, na.last=NA)], 1),
diffExprStat, "gsea")
By default, plot() plots both the up- and down-regulated genes based on the rankSimilarPerturbations() arguments.
For small molecules:
# Plot relationship with most positively associated perturbation
plot(cmapPerturbationsCompounds,
head(compareCompounds[order(spearman_rank, na.last=NA)], 1),
diffExprStat, "spearman")
plot(cmapPerturbationsCompounds,
head(compareCompounds[order(pearson_rank, na.last=NA)], 1),
diffExprStat,"pearson")
plot(cmapPerturbationsCompounds,
head(compareCompounds[order(GSEA_rank, na.last=NA)], 1),
diffExprStat, "gsea")
# Plot relationship with most negatively associated perturbation
plot(cmapPerturbationsCompounds,
tail(compareCompounds[order(spearman_rank, na.last=NA)], 1),
diffExprStat, "spearman")
plot(cmapPerturbationsCompounds,
tail(compareCompounds[order(pearson_rank, na.last=NA)], 1),
diffExprStat, "pearson")
plot(cmapPerturbationsCompounds,
tail(compareCompounds[order(GSEA_rank, na.last=NA)], 1),
diffExprStat, "gsea")
Predict targeting drugs
Compounds that target the phenotypes associated with the user-provided differential expression profile can be inferred by comparing against gene expression and drug sensitivity associations. The gene expression and drug sensitivity datasets derived from the following sources were correlated using Spearman’s correlation across the available cell lines.
To use an expression and drug sensitivity association based on CTRP 2.1 (GDSC 7 and NCI60 could be used instead) to infer targeting drugs for the user’s differential expression profile:
listExpressionDrugSensitivityAssociation()
## [1] "GDSC 7" "CTRP 2.1" "NCI60"
ctrp <- listExpressionDrugSensitivityAssociation()[[2]]
assoc <- loadExpressionDrugSensitivityAssociation(ctrp)
## expressionDrugSensitivityCorCTRP_2.1.rds not found: downloading data...
## Loading data from expressionDrugSensitivityCorCTRP_2.1.rds...
predicted <- predictTargetingDrugs(diffExprStat, assoc)
## Subsetting data based on 11227 intersecting genes (83% of the 13451 input genes)...
## Correlating against 545 CTRP 2.1 compounds (823 cell lines; Spearman's correlation)...
## Comparison against 545 CTRP 2.1 compounds using 'spearman' performed in 4.56 secs
## Correlating against 545 CTRP 2.1 compounds (823 cell lines; Pearson's correlation)...
## Comparison against 545 CTRP 2.1 compounds using 'pearson' performed in 1.25 secs
## Performing GSEA against 545 CTRP 2.1 compounds (823 cell lines)......
## Comparison against 545 CTRP 2.1 compounds using 'gsea' (gene size of 150) performed in 11.25 secs
plot(predicted, method="rankProduct")
# Plot results for a given drug
plot(predicted, predicted[[1, 1]], method="spearman")
## Loading data from C:\Users\biocbuild\bbs-3.11-bioc\tmpdir\RtmpUVDs6i\Rbuild271464832bc9\cTRAP\vignettes\expressionDrugSensitivityCorCTRP_2.1.rds...
plot(predicted, predicted[[1, 1]], method="gsea")
## Loading data from C:\Users\biocbuild\bbs-3.11-bioc\tmpdir\RtmpUVDs6i\Rbuild271464832bc9\cTRAP\vignettes\expressionDrugSensitivityCorCTRP_2.1.rds...
Compounds are ranked by their relative targeting potential based on the input differential expression profile (i.e. the 1st-ranked compound has higher targeting potential than the 2nd-ranked one).
Candidate targeting drugs can be plotted against the similarity ranking of their perturbations towards the user’s differential expression profile. Note that the highlighted values are the same compounds for the following plots annotated with their name, gene target and mechanism of action (MOA), respectively.
# Label by compound name
plotTargetingDrugsVSsimilarPerturbations(
predicted, compareCompounds, column="spearman_rank")
# Label by compound's gene target
plotTargetingDrugsVSsimilarPerturbations(
predicted, compareCompounds, column="spearman_rank", labelBy="target")
# Label by compound's mechanism of action (MOA)
plotTargetingDrugsVSsimilarPerturbations(
predicted, compareCompounds, column="spearman_rank", labelBy="moa")
Molecular descriptor enrichment analysis
Next, from our candidate targeting drugs, we will analyse the enrichment of 2D and 3D molecular descriptors based on CMap and NCI60 compounds. This allows to check if targeting drugs are particularly enriched in specific drug descriptors and may be useful to think about the relevance of these descriptors for targeting a phenotype of interest.
descriptors <- loadDrugDescriptors("CMap", "2D")
## molecular_descriptors_CMap_2D.rds not found: downloading data...
## Warning in readRDS(file): strings not representable in native encoding will be
## translated to UTF-8
## Warning in readRDS(file): input string 'serotoninÐnorepinephrine reuptake
## inhibitor (SNRI)' cannot be translated to UTF-8, is it valid in 'UTF-8' ?
## Warning in readRDS(file): input string 'norepinephrine inhibitor|norepinephrine
## reuptake inhibitor|serotonin receptor antagonist|serotoninÐnorepinephrine
## reuptake inhibitor (SNRI)' cannot be translated to UTF-8, is it valid in
## 'UTF-8' ?
## Warning in readRDS(file): input string 'norepinephrine reuptake inhibitor|
## serotoninÐnorepinephrine reuptake inhibitor (SNRI)' cannot be translated to
## UTF-8, is it valid in 'UTF-8' ?
## Warning in readRDS(file): input string 'norepinephrine reuptake inhibitor|
## serotoninÐnorepinephrine reuptake inhibitor (SNRI)|tricyclic antidepressant'
## cannot be translated to UTF-8, is it valid in 'UTF-8' ?
## Warning in readRDS(file): input string 'adrenergic inhibitor|norepinephrine
## reuptake inhibitor|serotoninÐnorepinephrine reuptake inhibitor (SNRI)' cannot be
## translated to UTF-8, is it valid in 'UTF-8' ?
## Warning in readRDS(file): input string 'serotoninÐnorepinephrine reuptake
## inhibitor (SNRI)' cannot be translated to UTF-8, is it valid in 'UTF-8' ?
## Warning in readRDS(file): input string 'norepinephrine reuptake inhibitor|
## serotoninÐnorepinephrine reuptake inhibitor (SNRI)' cannot be translated to
## UTF-8, is it valid in 'UTF-8' ?
drugSets <- prepareDrugSets(descriptors)
dsea <- analyseDrugSetEnrichment(drugSets, predicted)
## Matching compounds with those available in drug sets...
## Performing enrichment analysis...
# Plot the 6 most significant drug set enrichment results
plotDrugSetEnrichment(drugSets, predicted, selectedSets=head(dsea$pathway, 6))
## Matching compounds with those available in drug sets...
## Plotting enrichment analysis...
## $`is_touchstone: 0`
##
## $`Aromatic.Rings: 0`
##
## $`Aromatic.Rings: 1`
##
## $`Aromatic.Rings: 2`
##
## $`Aromatic.Rings: 3`
##
## $`Aromatic.Rings: 4`
