#' Plot a tanglegram
#' @param x dendrogram obtaind with plot_dendrogram
#' @param main_right title for left dendrogram
#' @param margin_inner title for right dendrogram
#' @param lwd width of the lina
#' @param common_subtrees_color_lines colour common subtrees?
#' @param highlight_distinct_edges highlight distinct edges?
#' @export
plot_tanglegram <- function(x, y,
main_left = "",
main_right = "",
margin_inner = 7,
lwd = 1,
common_subtrees_color_lines = TRUE,
highlight_distinct_edges = TRUE,
...) {
dendextend::tanglegram(x,
y,
margin_inner = margin_inner,
lwd = lwd,
common_subtrees_color_lines = common_subtrees_color_lines,
highlight_distinct_edges = highlight_distinct_edges,
main_left = main_left,
main_right = main_right,
...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.