Browse code

Fixed geom_tile()

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/branches/RELEASE_3_2/madman/Rpacks/rTRM@111920 bc3139a8-67e5-0310-9ffc-ced21a209358

D Diez authored on 25/12/2015 13:33:18
Showing 1 changed files

... ...
@@ -381,7 +381,7 @@ m=getSimilarityMatrix(list(PWMEnrich=sox2_trm,HOMER=s))
381 381
 m
382 382
 d=as.data.frame.table(m)
383 383
 g = ggplot(d, aes(x = Var1, y = Var2, fill = Freq))
384
-g + geom_tile(asp = 1) + scale_fill_gradient2(limit = c(0, 100), low = "white", mid = "darkblue", high = "orange", guide = guide_legend("similarity", reverse=TRUE), midpoint = 50) + xlab(NULL) + ylab(NULL) + theme(aspect.ratio=1, axis.text.x=element_text(angle = 90, vjust = .5, hjust = 1))
384
+g + geom_tile() + scale_fill_gradient2(limit = c(0, 100), low = "white", mid = "darkblue", high = "orange", guide = guide_legend("similarity", reverse=TRUE), midpoint = 50) + xlab(NULL) + ylab(NULL) + theme(aspect.ratio = 1, axis.text.x=element_text(angle = 90, vjust = .5, hjust = 1))
385 385
 
386 386
 @
387 387