@@ -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.3

+Version: 1.13.4

 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")),

@@ -28,6 +28,7 @@ export(as.polytomy)

 export(collapse)

 export(decimal2Date)

 export(expand)

+export(facet_labeller)

 export(facet_plot)

 export(flip)

 export(fortify)

@@ -173,6 +174,7 @@ importFrom(ggplot2,ggproto)

 importFrom(ggplot2,ggsave)

 importFrom(ggplot2,guide_legend)

 importFrom(ggplot2,guides)

+importFrom(ggplot2,labeller)

 importFrom(ggplot2,last_plot)

 importFrom(ggplot2,layer)

 importFrom(ggplot2,position_nudge)

@@ -1,3 +1,8 @@

+# ggtree 1.13.4

+

++ `facet_labeller` to label panels of `facet_plot` output (2018-09-10, Mon)

+  - <https://groups.google.com/forum/?utm_medium=email&utm_source=footer#!msg/bioc-ggtree/nAl3bNswxQM/crBwKtS3BAAJ>

+  

 # ggtree 1.13.3

 + update `viewClade` according to the change of `ggplot2` (2018-08-07, Tue)

@@ -25,6 +25,21 @@ facet_plot <- function(p, panel, data, geom, mapping=NULL, ...) {

     p + geom(data=df, mapping=mapping, ...)

 }

+##' label facet_plot output

+##'

+##' 

+##' @title facet_labeller

+##' @param p facet_plot output

+##' @param label labels of facet panels

+##' @return ggplot object

+##' @importFrom ggplot2 labeller

+##' @export

+##' @author Guangchuang Yu

+facet_labeller <- function(p, label) {

+    p+ facet_grid( . ~ .panel, scales="free_x",

+               labeller = labeller(.panel = label))

+}

+

 ##' @importFrom ggplot2 facet_grid

 add_panel <- function(p, panel) {

     df <- p$data

new file mode 100644

@@ -0,0 +1,22 @@

+% Generated by roxygen2: do not edit by hand

+% Please edit documentation in R/facet_plot.R

+\name{facet_labeller}

+\alias{facet_labeller}

+\title{facet_labeller}

+\usage{

+facet_labeller(p, label)

+}

+\arguments{

+\item{p}{facet_plot output}

+

+\item{label}{labels of facet panels}

+}

+\value{

+ggplot object

+}

+\description{

+label facet_plot output

+}

+\author{

+Guangchuang Yu

+}