library(metacoder) heat_tree(unite_ex_data_3, node_size = n_obs, node_label = name, node_color = ifelse(n_supertaxa == 2, "red", "grey")) heat_tree(unite_ex_data_3, node_size = n_obs, node_label = name, node_color = ifelse(n_supertaxa %in% 2:5, n_obs, "grey"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.