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
... | ... |
@@ -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 |
##' |