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())
|
|
)
|
|
}
|