@@ -113,14 +113,14 @@ scale_x_range <- function() {

 ##' p2 + scale_x_continuous(labels=abs)

 ##' @author Guangchuang Yu

 revts <- function(treeview) {

+    if (attr(treeview$data, 'revts.done')){

+         return(treeview)

+    }

     x <- treeview$data$x

     mx <- max(x, na.rm=TRUE)

     treeview$data$x <- x - mx

     treeview$data$branch <- treeview$data$branch - mx

 	tip.edge.len <- attr(treeview$data, 'tip.edge.len')

-    if (!is.null(tip.edge.len)){

-        treeview$data[treeview$data$isTip,"x", drop=TRUE] <- tip.edge.len

-    }

     treeview

 }

@@ -139,7 +139,7 @@ fortify.phylo4 <- function(model, data,

         model <- stats::as.hclust(model)

     }

-    if (inherits(model, "hclust") && layout == 'dendrogram') {

+    if (inherits(model, "hclust")) {

         phylo <- as.phylo.hclust2(model, hang = hang)

     } else {

         phylo <- as.phylo(model)

@@ -147,9 +147,14 @@ fortify.phylo4 <- function(model, data,

     df <- fortify.phylo(phylo, data,

                         layout, ladderize, right, mrsd=mrsd, ...)

-    if (!is.null(attr(phylo, 'tip.edge.len'))){

-        attr(df, 'tip.edge.len') <- attr(phylo, 'tip.edge.len')

+    mx <- max(df$x, na.rm=TRUE)

+    df$x <- df$x - mx

+    df$branch <- df$branch - mx

+    tip.edge.len <- attr(phylo, 'tip.edge.len')

+    if (!is.null(tip.edge.len)){

+        df[df$isTip, "x", drop=TRUE] <- tip.edge.len

     }

+    attr(df, 'revts.done') = TRUE

     scaleY(phylo, df, yscale, layout, ...)

 }

@@ -202,8 +202,16 @@ ggplot_add.facet_plot <- function(object, plot, object_name) {

 ##' @export

 ggplot_add.tiplab <- function(object, plot, object_name) {

     layout <- get_layout(plot)

-    if (layout == 'dendrogram' && object$hjust == 0 ){

-        object$hjust <- .5

+    if (layout == 'dendrogram'){

+        if( object$hjust == 0 ){

+            object$hjust = 1

+        }

+        if (!'vjust' %in% names(object)){

+            object$vjust = .5

+        }

+        if (!'angle' %in% names(object)){

+            object$angle = 90

+        }

     }

     if (object$as_ylab) {

         if (layout != "rectangular" && layout != "dendrogram") {