Я создал тепловую карту, используя этот скрипт:
RPKM_df= data.frame(GENES= table_tot_tissues$genes, RPKM)
dat = RPKM_df[,-1]
datmatrix= as.matrix(dat)
heatmap_RPKM= heatmap.2(datmatrix, trace = "none", Colv=FALSE, dendogram = 'row',
density = "none", col = bluered(20),
cexRow = 0.6, cexCol = 0.9, margins = c(8,14), scale = "row",
hclust =function(x) hclust(x,method = "average"))
, и я получил эту тепловую карту:
, но теперь
IДля сравнения необходимо извлечь только столбцы, называемые яйцеклетками и яичками.
Выберите несколько кластеров генов (наиболее выраженных) для оценки экспрессии генов в обеих тканях.