Commit 6bdc735a authored by Holger Brandl's avatar Holger Brandl

cont. heatmaps

parent 6717925a
......@@ -153,6 +153,7 @@ ggheatmap <- function(x, rowlabels=T, xshift=ifelse(rowlabels, 10, 0), xcompress
scale_x_discrete(expand=c(0,0)) +
theme(plot.margin = unit(c(0,0,2,0), "mm"))+
fillscale +
theme(text = element_text(size=10)) +
if(rowlabels) scale_y_discrete(expand=c(0,0)) else scale_y_discrete(expand=c(0,0), breaks=NULL)
......
require(data.table)
# http://stackoverflow.com/questions/11792527/filtering-out-duplicated-non-unique-rows-in-data-table
unique_rows <- function(df, columns){
unique(setkeyv(data.table(df), columns)) %>% as.df()
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment