@@ -46,6 +46,7 @@ export(geom_segment2)

 export(geom_taxalink)

 export(geom_text2)

 export(geom_tiplab)

+export(geom_tiplab2)

 export(geom_tippoint)

 export(geom_tree)

 export(geom_tree2)

@@ -1,5 +1,6 @@

 CHANGES IN VERSION 1.3.15

 ------------------------

+ o geom_tiplab2 for adding tip label of circular layout <2016-04-06, Wed>

  o use plot$plot_env to access ggplot2 parameter <2016-04-06, Wed>

  o geom_taxalink for connecting related taxa <2016-04-01, Fri> 

  o geom_range for adding range of HPD to present uncertainty of evolutionary inference <2016-04-01, Fri>

@@ -50,5 +50,28 @@ geom_tiplab <- function(mapping=NULL, hjust = 0, align = FALSE, linetype = "dott

 }

+##' add tip label for circular layout

+##'

+##' 

+##' @title geom_tiplab2

+##' @param mapping aes mapping

+##' @param ... additional parameter, see geom_tiplab

+##' @return tip label layer

+##' @export

+##' @author Guangchuang Yu

+##' @references \url{https://groups.google.com/forum/#!topic/bioc-ggtree/o35PV3iHO-0}

+geom_tiplab2 <- function(mapping=NULL, ...) {

+    angle <- NULL

+    m1 <- aes(subset=(abs(angle) < 90), angle=angle)

+    m2 <- aes(subset=(abs(angle) >= 90), angle=angle+180)

+        

+    if (!is.null(mapping)) {

+        m1 <- modifyList(mapping, m1)

+        m2 <- modifyList(mapping, m2)

+    }

+    list(geom_tiplab(m1, ...),

+         geom_tiplab(m2, hjust=1, ...)

+         )

+}

new file mode 100644

@@ -0,0 +1,26 @@

+% Generated by roxygen2: do not edit by hand

+% Please edit documentation in R/geom_tiplab.R

+\name{geom_tiplab2}

+\alias{geom_tiplab2}

+\title{geom_tiplab2}

+\usage{

+geom_tiplab2(mapping = NULL, ...)

+}

+\arguments{

+\item{mapping}{aes mapping}

+

+\item{...}{additional parameter, see geom_tiplab}

+}

+\value{

+tip label layer

+}

+\description{

+add tip label for circular layout

+}

+\author{

+Guangchuang Yu

+}

+\references{

+\url{https://groups.google.com/forum/#!topic/bioc-ggtree/o35PV3iHO-0}

+}

+