Nothing
library(dendextend) library(knitr) knitr::opts_chunk$set( cache = TRUE, dpi = 75, fig.width = 6, fig.height = 6, # comment = "#>", tidy = FALSE) # https://stackoverflow.com/questions/24091735/why-pandoc-does-not-retrieve-the-image-file # < ! -- rmarkdown v1 -->
Load:
library(dendextend) #
Create a dendrogram (if you don't know what %>%
is, read about it here ) :
dend <- c(1:5) %>% dist %>% hclust("ave") %>% as.dendrogram
Plot:
plot(dend)
Get/set labels
labels(dend) labels(dend) <- c("A", "B", "extend", "dend", "C") labels(dend)
Get/set labels' colors
labels_colors(dend) labels_colors(dend) <- rainbow(5) labels_colors(dend) plot(dend)
Cut-tree, and color branches
cutree(dend, k = 2) dend <- color_branches(dend, k = 2) plot(dend)
Sort
dend2 <- sort(dend) plot(dend2)
Compare
tanglegram( dend, dend2 )
Cor
cor_cophenetic( dend, dend2 )
ggplot2
library(ggplot2) ggplot(dend)
Send to plot.ly
# library(plotly) # set_credentials_file(...) # you'll need to get it from here: https://plot.ly/ggplot2/getting-started/ # ggplot(dend) # py <- plotly() # py$ggplotly()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.