theme_heatmap<-function(x){
  list(geom_tile(),
       scale_fill_gradientn(colors=col2(200)),
       theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust=0.5),
             panel.background = element_blank(),
             axis.ticks = element_blank())
  )
}