@@ -117,6 +117,10 @@ revts <- function(treeview) {

     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

 }

@@ -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,23 @@ 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)

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

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

     } else {

         phylo <- as.phylo(model)

     }

     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')

+    }

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

 }

@@ -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: