Browse code

more accurate ylim & angle for circular layout <2016-05-10, Tue>

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/ggtree@117270 bc3139a8-67e5-0310-9ffc-ced21a209358

g.yu authored on 10/05/2016 09:40:21
Showing 3 changed files

... ...
@@ -1,5 +1,7 @@
1 1
 CHANGES IN VERSION 1.5.2
2 2
 ------------------------
3
+ o more accurate ylim & angle for circular layout <2016-05-10, Tue>
4
+   + https://github.com/GuangchuangYu/ggtree/issues/40
3 5
  o supports phylo4d object <2016-05-10, Tue>
4 6
    + https://github.com/GuangchuangYu/ggtree/issues/47
5 7
  
... ...
@@ -92,7 +92,7 @@ ggtree <- function(tr,
92 92
         p <- p + coord_polar(theta = "y")
93 93
         ## refer to: https://github.com/GuangchuangYu/ggtree/issues/6
94 94
         ## and also have some space for tree scale (legend)
95
-        p <- p + scale_y_continuous(limits=c(0, max(p$data$y)))
95
+        p <- p + scale_y_continuous(limits=c(0, max(p$data$y)+1))
96 96
     } 
97 97
 
98 98
     return(p)
... ...
@@ -584,7 +584,7 @@ as.data.frame.phylo_ <- function(x, layout="rectangular",
584 584
     ## angle for all layout, if 'rectangular', user use coord_polar, can still use angle
585 585
     ## if (layout == "circular") {
586 586
     idx <- match(1:N, order(res$y))
587
-    angle <- -360/(1+N) * (1:N+1)
587
+    angle <- -360/(3+N) * (1:N+1)
588 588
     angle <- angle[idx]
589 589
     res$angle <- angle + 90
590 590
     ## }