CitFuns/R/theme_heatmap.R

theme_heatmap<-function(x,line.color="#FFFFFF00"){
  list(geom_tile(color=line.color),
       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())
  )
}