Adding/Removing the Node/Edge legends individually.

[grabear]

An option like make_legend = FALSE could exist for the edge legend and for the node legend separately.
Currently, the make_legend parameter controls both. In some cases you might only want one or the other. This might help save space in reference to file size and the plot dimensions.

So in the heat_tree function, there could be a make_node_legend parameter and a make_edge_legend parameter.

I know that implementing this might span across several scripts. If you could point me in the right direction, I would be happy to add this.

[zachary-foster]

Hello @grabear, thanks for the suggestion and offer to help!

This was a pretty easy change, so I just when ahead and did it.

Install the dev versions and try:

devtools::install_github("ropensci/taxa")
devtools::install_github("grunwaldlab/metacoder")

x = parse_tax_data(hmp_otus, class_cols = "lineage", class_sep = ";",
                                class_key = c(tax_rank = "info", tax_name = "taxon_name"),
                                class_regex = "^(.+)__(.+)$")

heat_tree(x, node_label = taxon_names, node_size = n_obs, node_color = n_obs, edge_size = n_obs + 1)
heat_tree(x, node_label = taxon_names, node_size = n_obs, node_color = n_obs, edge_size = n_obs + 1, make_node_legend = FALSE)
heat_tree(x, node_label = taxon_names, node_size = n_obs, node_color = n_obs, edge_size = n_obs + 1, make_edge_legend = FALSE)
heat_tree(x, node_label = taxon_names, node_size = n_obs, node_color = n_obs, edge_size = n_obs + 1, make_edge_legend = FALSE, make_node_legend = FALSE)

[grabear]

No problem! This package is awesome, so I'm excited to contribute once I finish the project I'm working on with metacoder. Nice update!

[zachary-foster]

Thanks!