| ... | ... |
@@ -1,5 +1,7 @@ |
| 1 | 1 |
# ggtree 1.15.1 |
| 2 | 2 |
|
| 3 |
++ now `revts` also reverse the `branch` column (2018-11-11, Sun) |
|
| 4 |
+ - <https://groups.google.com/d/msgid/bioc-ggtree/50765a34-53e5-44d2-bb8f-6d20a11fa890%40googlegroups.com> |
|
| 3 | 5 |
+ better msg when taxa name not consistent in sequence and tree files with `msaplot`. (2018-11-07, Wed) |
| 4 | 6 |
- <https://github.com/GuangchuangYu/ggtree/issues/172#issuecomment-436585370> |
| 5 | 7 |
|
| ... | ... |
@@ -36,7 +36,8 @@ xlim_expand <- function(xlim, panel) {
|
| 36 | 36 |
##' @author guangchuang yu |
| 37 | 37 |
revts <- function(treeview) {
|
| 38 | 38 |
x <- treeview$data$x |
| 39 |
- x <- x - max(x) |
|
| 40 |
- treeview$data$x <- x |
|
| 39 |
+ mx <- max(x) |
|
| 40 |
+ treeview$data$x <- x - mx |
|
| 41 |
+ treeview$data$branch <- treeview$data$branch - mx |
|
| 41 | 42 |
treeview |
| 42 | 43 |
} |
