Investor Presentaiton
Appendix: Graph a lightly annotated tree
(decision_tree_unlabeled <-
ggtree (tree_data) %<+% tree_labels +
layout_dendrogram() +
annotate("text", x = -12.25, y = 2, label = "Start") +
annotate("label", label = rep(c("H", "T"), 4),
x = c(11.5, 11.5, 9.5, 9.5, 7.5, 7.5, 4.5, 4.5),
y c(1, 2.875, 2, 3.75, 3, 4.5, 4, 5)) +
=
xlim (0, -12.25) +
geom_tiplab (geom
=
= "text", aes (label label_text),
parse T, vjust 1, hjust = .5,
angle == 1) +
=
=
geom_linerange (y 5, xmin = -1, xmax = 2.75,
color="white", size = 2) +
geom_linerange (y = 4.5, xmin = 5.02, xmax =
color="white", size = 2) +
=
geom_linerange (y 5, xmin -1, xmax
linetype
= "dotted"
size = .75) +
= 2.75,
geom_linerange (y = 4.5, xmin = 5.02, xmax
5.75,
= 5.75,
linetype = "dotted", size = .75))View entire presentation