add strips for a tree plot

add strips for a tree plot

add_strip(trp, some_tax, flat_n = 5, strip_params = NULL)

Arguments

trp

tree plot from ggtree

some_tax

some tax you want to add strip

flat_n

flat the text when taxa number more than flat_n.

strip_params

parameters parse to geom_strip

Value

tree plot

Examples

# \donttest{
data(otutab, package = "pcutils")
# run yourself
if (interactive()) {
  ann_tree(taxonomy, otutab) -> tree
  easy_tree(tree) -> p
  some_tax <- table(taxonomy$Phylum) %>%
    sort(decreasing = TRUE) %>%
    head(5) %>%
    names()
  add_strip(p, some_tax)
}
# }