5.4 Heatmap visualisation

Visualise, for example, genes with the code 1-0-1-0-1-0 or early-persistent induced (EPi).

library(XGR)

gp_triple <- read_delim('DE_genes.txt.gz', delim='\t') %>% semi_join(df_full %>% filter(code=='1-0-1-0-1-0'),by=c('mgi_symbol'='member')) %>% select(mgi_symbol,time,logFC) %>% pivot_wider(names_from=time, values_from=logFC) %>% column_to_rownames('mgi_symbol') %>% xHeatmap(reorder="row", colormap="darkblue-lightyellow-darkred", zlim=c(-4,4), x.rotate=0, shape='tile', x.text.size=8, y.text.size=0, barwidth=0.8, barheight=5)
gp_triple