git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/ggtree@117270 bc3139a8-67e5-0310-9ffc-ced21a209358
... | ... |
@@ -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 |
## } |