Basic Examples 
(2)
 

Gene expression (nTPM) in different human tissues:
In[1]:=
Dataset@ResourceData

Out[1]=
Gene
Adipose tissue
Adrenal gland
Amygdala
Appendix
Basal ganglia
Bone marrow
Breast
Cerebellum
Cerebral cortex
Cervix
ENSG00000000003
28.6
17.6
13.0
4.7
12.4
0.6
33.0
2.5
9.4
26.0
ENSG00000000005
20.4
0.2
0.1
0.6
0.0
0.0
12.5
0.0
0.2
0.5
ENSG00000000419
38.3
50.0
21.3
32.3
22.1
52.5
38.8
21.7
25.8
30.4
ENSG00000000457
5.4
5.7
2.5
7.2
2.5
3.9
10.6
4.5
3.9
6.5
ENSG00000000460
1.8
1.1
0.6
3.2
0.6
8.9
2.8
3.0
1.0
2.2
ENSG00000000938
24.2
6.6
6.3
60.5
6.8
205.7
15.4
2.6
6.1
7.4
ENSG00000000971
121.3
43.8
9.4
29.6
13.9
1.0
67.6
3.5
8.5
71.8
ENSG00000001036
27.9
40.1
12.3
24.6
13.5
24.9
25.4
6.0
9.6
28.1
ENSG00000001084
25.7
17.7
12.3
16.1
14.9
37.4
26.4
4.8
29.6
9.2
ENSG00000001167
10.3
8.6
10.2
12.5
9.8
37.9
13.6
9.6
10.4
9.9
ENSG00000001460
4.5
3.9
6.8
2.2
7.8
1.2
3.9
12.4
11.0
3.2
ENSG00000001461
8.1
7.2
36.7
8.1
37.3
8.3
12.5
65.3
39.4
9.2
ENSG00000001497
20.8
18.5
28.5
10.9
30.7
15.7
20.5
46.4
32.9
26.2
ENSG00000001561
14.6
13.2
10.7
7.1
11.2
37.6
7.6
7.0
19.2
10.0
ENSG00000001617
32.7
8.7
5.8
8.4
5.1
2.6
30.8
4.6
6.0
27.4
ENSG00000001626
0.3
0.0
0.2
4.4
0.5
0.0
0.4
0.0
0.2
8.9
ENSG00000001629
12.2
10.3
16.8
9.7
15.4
6.8
11.9
9.9
19.9
12.2
ENSG00000001630
16.7
55.6
26.9
18.9
20.7
29.7
27.6
21.3
55.0
22.1
ENSG00000001631
8.0
8.4
5.4
4.5
6.2
1.4
7.4
10.4
6.9
9.2
rows 1–20 of 20163
columns 1–10 of 50
Data not saved. Save now
Expression of 50 strongest expressing genes in human tissues (
Red
color indicates data not available):
In[2]:=
RNAExpressionData=ResourceData
;​​tissues=RNAExpressionData[[1]];​​ensemblIDGeneAssoc=ResourceData
,"Ensembl ID gene name association";​​ensemblIDs=Keys@RNAExpressionData[[2;;-1]];​​genes=ensemblIDGeneAssoc/@ensemblIDs;​​v=Values@RNAExpressionData;​​totExp=Table[Total@v[[i]]/.{"NA"->0},{i,2,Length@genes+1}];​​sv=Sort[totExp];​​numGenes=50;​​pos=Flatten@Map[Position[totExp,#]&,sv[[Length@genes-numGenes;;Length@genes]]];​​highestExpressionGenes=ensemblIDs[[pos]];​​highestExpressionGeneNames=Map[ensemblIDGeneAssoc,highestExpressionGenes];​​ftx=MapThread[{#1,#2}&,{Range@Length@highestExpressionGeneNames,highestExpressionGeneNames}];​​fty=MapThread[{#1,Rotate[Capitalize@#2,Pi/2]}&,{Range@Length@tissues,tissues}];​​array=v[[pos+1]];​​mA={Min@array/."NA"->0,Max@array/."NA"->0};​​ArrayPlot[array,ColorFunction->"BlueGreenYellow",FrameTicks->{ftx,fty},ImageSize->1000,Frame->True,FrameStyle->Directive[Black,12],PlotLegends->BarLegend[{"BlueGreenYellow",mA}],PlotLabel->Style["Highest expressing genes in human tissues (nTPM)",Black,Bold,20]]​​
Out[18]=

Visualizations 
(3)
 


Analysis 
(2)
 
