guangchuang yu authored on 24/11/2017 07:03:01
Showing4 changed files

... ...
@@ -89,6 +89,7 @@ GeomSegmentGGtree <- ggproto("GeomSegmentGGtree", GeomSegment,
89 89
                                                    lineend = "butt", na.rm = FALSE, nudge_x = 0) {
90 90
 
91 91
                                  data$x <- data$x + nudge_x
92
+                                 ## data$x <- data$x - sapply(data$label, function(x) convertWidth(grobWidth(textGrob(x, gp=gpar(fontsize=.04* .pt))), "native", TRUE))
92 93
                                  GeomSegment$draw_panel(data, panel_scales, coord, arrow,
93 94
                                                         lineend, na.rm)
94 95
                              }
... ...
@@ -47,6 +47,7 @@ geom_tiplab <- function(mapping=NULL, hjust = 0,  align = FALSE, linetype = "dot
47 47
                                xend = x + diff(range(x, na.rm=TRUE))/200,
48 48
                                y = y, yend = y,
49 49
                                node = node,
50
+                               label = label,
50 51
                                subset = isTip)
51 52
         if (!is.null(mapping))
52 53
             segment_mapping <- modifyList(segment_mapping, mapping)
... ...
@@ -7,14 +7,14 @@ ggtree: an R package for visualization and annotation of phylogenetic trees with
7 7
 [![releaseVersion](https://img.shields.io/badge/release%20version-1.10.0-green.svg?style=flat)](https://bioconductor.org/packages/ggtree)
8 8
 [![develVersion](https://img.shields.io/badge/devel%20version-1.11.1-green.svg?style=flat)](https://github.com/guangchuangyu/ggtree)
9 9
 [![Bioc](http://www.bioconductor.org/shields/years-in-bioc/ggtree.svg)](https://www.bioconductor.org/packages/devel/bioc/html/ggtree.html#since)
10
-[![total](https://img.shields.io/badge/downloads-21387/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
10
+[![total](https://img.shields.io/badge/downloads-21527/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
11 11
 [![month](https://img.shields.io/badge/downloads-1156/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
12 12
 
13 13
 [![Project Status: Active - The project has reached a stable, usable
14 14
 state and is being actively
15 15
 developed.](http://www.repostatus.org/badges/latest/active.svg)](http://www.repostatus.org/#active)
16 16
 [![codecov](https://codecov.io/gh/GuangchuangYu/ggtree/branch/master/graph/badge.svg)](https://codecov.io/gh/GuangchuangYu/ggtree)
17
-[![Last-changedate](https://img.shields.io/badge/last%20change-2017--11--20-green.svg)](https://github.com/GuangchuangYu/ggtree/commits/master)
17
+[![Last-changedate](https://img.shields.io/badge/last%20change-2017--11--24-green.svg)](https://github.com/GuangchuangYu/ggtree/commits/master)
18 18
 [![GitHub
19 19
 forks](https://img.shields.io/github/forks/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/network)
20 20
 [![GitHub
... ...
@@ -59,8 +59,8 @@ their covariates and other associated data. ***Methods in Ecology and
59 59
 Evolution***. 2017, 8(1):28-36.
60 60
 
61 61
 [![doi](https://img.shields.io/badge/doi-10.1111/2041--210X.12628-green.svg?style=flat)](http://dx.doi.org/10.1111/2041-210X.12628)
62
-[![Altmetric](https://img.shields.io/badge/Altmetric-336-green.svg?style=flat)](https://www.altmetric.com/details/10533079)
63
-[![citation](https://img.shields.io/badge/cited%20by-46-green.svg?style=flat)](https://scholar.google.com.hk/scholar?oi=bibs&hl=en&cites=7268358477862164627)
62
+[![Altmetric](https://img.shields.io/badge/Altmetric-335-green.svg?style=flat)](https://www.altmetric.com/details/10533079)
63
+[![citation](https://img.shields.io/badge/cited%20by-49-green.svg?style=flat)](https://scholar.google.com.hk/scholar?oi=bibs&hl=en&cites=7268358477862164627)
64 64
 
65 65
 ------------------------------------------------------------------------
66 66
 
... ...
@@ -71,7 +71,7 @@ Evolution***. 2017, 8(1):28-36.
71 71
 ### Download stats
72 72
 
73 73
 [![download](http://www.bioconductor.org/shields/downloads/ggtree.svg)](https://bioconductor.org/packages/stats/bioc/ggtree)
74
-[![total](https://img.shields.io/badge/downloads-21387/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
74
+[![total](https://img.shields.io/badge/downloads-21527/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
75 75
 [![month](https://img.shields.io/badge/downloads-1156/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
76 76
 
77 77
 <img src="docs/images/dlstats.png" width="890"/>
78 78
Binary files a/docs/images/citation.png and b/docs/images/citation.png differ