marcelcosta/CitFuns
1
0
Fork 0
Code Issues 4 Pull Requests Projects Releases Wiki Activity

Corregir error al pasar un tibble a ggheatmap.

Browse Source
This commit is contained in:
Costa
2022-02-04 11:22:28 +01:00
parent 62239d91b2
commit ac5eaec24e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/ggheatmap.R
+2 -1
View File
@@ -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)+