Browse Source

Corregir error al pasar un tibble a ggheatmap.

main
Costa 2 years ago
parent
commit
ac5eaec24e
1 changed files with 2 additions and 1 deletions
  1. +2
    -1
      R/ggheatmap.R

+ 2
- 1
R/ggheatmap.R

@ -1,4 +1,5 @@
ggheatmap<-function(df, x=NULL, y=NULL, value=NULL){ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL){
if (is.null(x)){x=colnames(df)[1]} if (is.null(x)){x=colnames(df)[1]}
if (is.null(y)){y=colnames(df)[2]} if (is.null(y)){y=colnames(df)[2]}
if (is.null(value)){value=colnames(df)[3]} if (is.null(value)){value=colnames(df)[3]}
@ -6,7 +7,7 @@ ggheatmap<-function(df, x=NULL, y=NULL, value=NULL){
order<-clustsort(df %>% spread(y,value)) order<-clustsort(df %>% spread(y,value))
df %>% df %>%
ggplot(aes(df[,x], df[,y], fill=df[,value]))+
ggplot(aes_string(x, y, fill=value))+
scale_x_discrete(limits=order$x)+ scale_x_discrete(limits=order$x)+
scale_y_discrete(limits=order$y)+ scale_y_discrete(limits=order$y)+
labs(x=x, y=y)+ labs(x=x, y=y)+

Loading…
Cancel
Save