Browse code

subset tip in geom_tiplab2

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/ggtree@121788 bc3139a8-67e5-0310-9ffc-ced21a209358

Guangchuang Yu authored on 05/10/2016 08:52:08
Showing2 changed files

... ...
@@ -1,5 +1,6 @@
1 1
 CHANGES IN VERSION 1.5.14
2 2
 ------------------------
3
+ o subset tip in geom_tiplab2 <2016-10-05, Wed>
3 4
  o add `compute_group` according to ggplot (v2.1.0) <2016-09-29, Thu>
4 5
    + https://github.com/hadley/ggplot2/issues/1797
5 6
  o unit test for groupOTU and groupClade <2016-09-22, Thu>
... ...
@@ -22,6 +22,7 @@ geom_tippoint <- function(mapping = NULL, data = NULL,
22 22
 
23 23
 geom_tippoint2 <- function(mapping=NULL, hjust=0, ...) {
24 24
     angle <- NULL
25
+    isTip <- NULL
25 26
     m1 <- aes(subset=(isTip & (angle < 90 | angle > 270)), angle=angle)
26 27
     m2 <- aes(subset=(isTip & (angle >= 90 & angle <=270)), angle=angle+180)
27 28