Nothing
## ----setup, include=FALSE------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
suppressMessages(library(magrittr))
## ---- message=FALSE------------------------------------------------------
library(magrittr)
library(phylocanvas)
tree = ape::read.tree(text = "(A:0.1,B:0.2,(C:0.3,D:0.4)E:0.5)F;")
phycanv <- phylocanvas(tree, treetype = "rectangular", alignlabels = T)
## ------------------------------------------------------------------------
phycircle <- phylocanvas(tree, treetype = "circular", nodesize = 30, linewidth = 10)
phycircle
## ------------------------------------------------------------------------
# Note that colors are names, rgbs or hex
phycanv %>%
style_node("A", nodesizeratio = 4, fillcolor="rgb(0, 255, 0)") %>%
style_node("B", fillcolor = "blue") %>%
style_node("C", labeltextsize = 10, shape="triangle") %>%
style_node("D", fillcolor="#ffa500", highlighted=TRUE)
## ------------------------------------------------------------------------
phycircle %>% collapse_branch("E")
## ------------------------------------------------------------------------
phycircle %>% rotate_branch("E")
## ------------------------------------------------------------------------
phycanv %>% select_branch("B")
phycanv %>% select_branch("E", cascade=TRUE)
## ------------------------------------------------------------------------
phycanv %>% highlight_node("B")
## ------------------------------------------------------------------------
# Note the scalebar is active
tree = ape::read.tree(text="(A:0.1,B:0.2,(C:0.3,D:0.4)E:0.5)F;")
phylocanvas(tree, showscalebar = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.