@@ -2,7 +2,7 @@ Package: ggtree

 Type: Package

 Title: an R package for visualization and annotation of phylogenetic trees with

     their covariates and other associated data

-Version: 1.13.0.005

+Version: 1.13.0.006

 Authors@R: c(

 	   person("Guangchuang", "Yu",     email = "guangchuangyu@gmail.com", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0002-6485-8781")),

 	   person("Tommy Tsan-Yuk", "Lam", email = "tylam.tommy@gmail.com",   role = c("aut", "ths")),

@@ -29,7 +29,7 @@ Imports:

     scales,

     tibble,

     tidyr,

-    tidytree (>= 0.1.5),

+    tidytree (>= 0.1.9),

     treeio (>= 1.3.14),

     utils

 Suggests:

@@ -45,6 +45,7 @@ export(geom_nodepoint)

 export(geom_point)

 export(geom_point2)

 export(geom_range)

+export(geom_rootedge)

 export(geom_rootpoint)

 export(geom_segment2)

 export(geom_strip)

@@ -1,5 +1,7 @@

-# ggtree 1.13.0.005

+# ggtree 1.13.0.006

++ `geom_rootedge` (2018-06-13, Wed)

+  - <https://github.com/GuangchuangYu/ggtree/issues/183>

 + `clade_name` parameter added in `collapse` (2018-05-28, Mon)

   - <https://groups.google.com/forum/?utm_medium=email&utm_source=footer#!msg/bioc-ggtree/0H1PCJPlI1Q/DeZf9EVhBQAJ>

 + bug fixed of `gheatmap` for rowname subsetting is partial match in R

new file mode 100644

@@ -0,0 +1,44 @@

+##' display root edge

+##'

+##'

+##' @title geom_rootedge

+##' @param rootedge length of rootedge; use phylo$root.edge if rootedge = NULL (by default).

+##' @return ggplot layer

+##' @export

+##' @author Guangchuang Yu

+geom_rootedge <- function(rootedge = NULL) {

+    mapping <- aes_(x = ~x, y = ~y, xend = ~x, yend = ~y,

+                    branch.length = ~branch.length,

+                    node = ~node, parent = ~parent)

+    layer(

+        stat = StatRootEdge,

+        data  = NULL,

+        mapping = mapping,

+        geom = "segment",

+        position = "identity",

+        show.legend = NA,

+        params = list(rootedge = rootedge),

+        check.aes = FALSE

+    )

+

+}

+

+

+

+StatRootEdge <- ggproto("StatRootEdge", Stat,

+                        compute_group = function(self, data, scales, params, rootedge) {

+                            d <- data[data$parent == data$node,]

+                            if (is.null(rootedge)) {

+                                rootedge <- d$branch.length

+                            }

+                            if (is.null(rootedge) || is.na(rootedge)) {

+                                xend <- d$x

+                            } else {

+                                xend <- -rootedge

+                            }

+

+                            data.frame(x = d$x, y = d$y,

+                                       xend = xend, yend = d$y)

+                        },

+                        required_aes = c("x", "y", "xend", "yend")

+                        )

new file mode 100644

@@ -0,0 +1,20 @@

+% Generated by roxygen2: do not edit by hand

+% Please edit documentation in R/geom_rootedge.R

+\name{geom_rootedge}

+\alias{geom_rootedge}

+\title{geom_rootedge}

+\usage{

+geom_rootedge(rootedge = NULL)

+}

+\arguments{

+\item{rootedge}{length of rootedge; use phylo$root.edge if rootedge = NULL (by default).}

+}

+\value{

+ggplot layer

+}

+\description{

+display root edge

+}

+\author{

+Guangchuang Yu

+}