R/plot_tanglegram.R

In leandroroser/RNASeqFunctions: Several functions for rna-seq analysis

#' 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,
                         ...)
}