... | ... |
@@ -100,7 +100,7 @@ ggplot_add.layout_ggtree <- function(object, plot, object_name) { |
100 | 100 |
|
101 | 101 |
if (object$layout == 'dendrogram') { |
102 | 102 |
plot <- revts(plot) |
103 |
- obj <- list(scale_x_reverse(labels = abs), |
|
103 |
+ obj <- list(scale_x_reverse(labels = function(x){-x}), |
|
104 | 104 |
coord_flip(clip = 'off') |
105 | 105 |
) |
106 | 106 |
} else if (object$layout == 'circular' || object$layout == "inward_circular") { |