Cambiar la forma de ordenar los ejes.

R/ggheatmap.R

@@ -14,10 +14,11 @@ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL, grouping="mean"){
 
   order<-clustsort(df %>% spread(VarY,Value) %>% as.data.frame)
 
+  df$VarX<-factor(df$VarX, levels=order$x)
+  df$VarY<-factor(df$VarY, levels=order$y)
+  
   df %>%
     ggplot(aes(VarX, VarY, fill=Value))+
-    scale_x_discrete(limits=order$x)+
-    scale_y_discrete(limits=order$y)+
     labs(x=x, y=y)+
     theme_heatmap()
 }