Browse code

Commit made by the Bioconductor Git-SVN bridge.

Commit id: c73ab7a619f7e079061134f918d29cb69720280a

use "round" segment end, look very better <2015-03-12, Thu>



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

g.yu authored on 12/03/2015 04:35:05
Showing 2 changed files

  • NEWS index d22ec147..4411e3d7 100644
  • R/ggtree.R index 578829e3..8650df43 100644
... ...
@@ -1,5 +1,6 @@
1 1
 CHANGES IN VERSION 0.99.24
2 2
 ------------------------
3
+ o use "round" segment end, look very better <2015-03-12, Thu>
3 4
  o update vignett <2015-03-11, Wed>
4 5
  
5 6
 CHANGES IN VERSION 0.99.23
... ...
@@ -108,20 +108,22 @@ geom_tree <- function(layout="phylogram", color="black", linetype="solid", size=
108 108
                          xend = c(x,         x[parent]),
109 109
                          y    = c(y,         y[parent]),
110 110
                          yend = c(y,         y)),
111
-                     color = color,
111
+                     color    = color,
112 112
                      linetype = linetype,
113
-                     size = size, ...)
113
+                     size     = size,
114
+                     lineend  = "round", ...)
114 115
     } else if (layout == "cladogram" || layout == "unrooted") {
115 116
         geom_segment(aes(x    = x[parent],
116 117
                          xend = x,
117 118
                          y    = y[parent],
118 119
                          yend = y),
119
-                     color = color,
120
+                     color    = color,
120 121
                      linetype = linetype,
121
-                     size = size, ...)
122
+                     size     = size, ...)
122 123
     }
123 124
 }
124 125
 
126
+
125 127
 ##' hilight clade with rectangle
126 128
 ##'
127 129
 ##'