@@ -113,10 +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')

     treeview

 }

@@ -17,6 +17,9 @@

 ##' @param root.position position of the root node (default = 0)

 ##' @param xlim x limits, only works for 'inward_circular' layout

 ##' @param layout.params list, the parameters of layout, when layout is a function.

+##' @param hang numeric The fraction of the tree plot height by which labels should hang 

+##' below the rest of the plot. A negative value will cause the labels to hang down from 0. This

+##' parameter only work with the 'dendrogram' layout for 'hclust' like class, default is 0.1.

 ##' @return tree

 ##' @importFrom ggplot2 ggplot

 ##' @importFrom ggplot2 xlab

@@ -59,6 +62,7 @@ ggtree <- function(tr,

                    root.position  = 0,

                    xlim = NULL,

                    layout.params = list(),

+                   hang = .1,

                    ...) {

     # Check if layout string is valid.

@@ -102,6 +106,7 @@ ggtree <- function(tr,

                 right         = right,

                 branch.length = branch.length,

                 root.position = root.position,

+                hang          = hang,

                 ...)

     if (!is.null(dd)){

@@ -133,19 +133,28 @@ fortify.phylo4 <- function(model, data,

                            ladderize = TRUE,

                            right     = FALSE,

                            mrsd      = NULL,

+                           hang      = .1,

                            ...) {

     if (inherits(model, c("dendrogram", "agnes", "diana", "twins"))) {

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

     }

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

-        phylo <- as.phylo.hclust2(model)

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

     } else {

         phylo <- as.phylo(model)

     }

     df <- fortify.phylo(phylo, data,

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

+    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, ...)

 }

@@ -100,7 +100,7 @@ ggplot_add.layout_ggtree <- function(object, plot, object_name) {

     if (object$layout == 'dendrogram') {

         plot <- revts(plot)

-        obj <- list(scale_x_reverse(labels = abs),

+        obj <- list(scale_x_reverse(labels = function(x){-x}),

                     coord_flip(clip = 'off')

                     )

     } else if (object$layout == 'circular' || object$layout == "inward_circular") {

@@ -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") {

@@ -1355,14 +1355,21 @@ as.phylo.hclust2 <- function(x, hang=0.1, ...) {

     }

   }

-  len <- numeric(max(tr$edge))

-  len[nodes] <- h$height

-  pn <- ev[nodes]

-  pn[pn == 0] <- treeio::rootnode(tr)

-  len[nodes] <- len[pn] - len[nodes]

-  len[1:Ntip(tr)] <- hang #max(h$height)/10

-

-  tr$edge.length <- len[tr$edge[,2]]

+  #len <- numeric(max(tr$edge))

+  #len[nodes] <- h$height

+  #pn <- ev[nodes]

+  #pn[pn == 0] <- treeio::rootnode(tr)

+  #len[nodes] <- len[pn] - len[nodes]

+  #len[1:Ntip(tr)] <- hang #max(h$height)/10

+

+  #tr$edge.length <- len[tr$edge[,2]]

+

+  tip2parent <- tr$edge[match(seq_len(Ntip(tr)), tr$edge[,2]), 1]

+  if (hang > 0){

+    tip.edge.len <- hang * max(h$height) - h$height[match(tip2parent, nodes)]

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

+  }

+  tr$edge.length <- tr$edge.length * 2

   return(tr)

 }

@@ -22,6 +22,7 @@ ggtree(

   root.position = 0,

   xlim = NULL,

   layout.params = list(),

+  hang = 0.1,

   ...

 )

 }

@@ -57,6 +58,10 @@ right-hand side? See \code{\link[ape:ladderize]{ape::ladderize()}} for more info

 \item{layout.params}{list, the parameters of layout, when layout is a function.}

+\item{hang}{numeric The fraction of the tree plot height by which labels should hang

+below the rest of the plot. A negative value will cause the labels to hang down from 0. This

+parameter only work with the 'dendrogram' layout for 'hclust' like class, default is 0.1.}

+

 \item{...}{additional parameter

 some dot arguments: