Calculate the total length of lines to draw the dendrogram

Share:

Description

cal_total_length is a code modified from plot.dendrogram() to calculate the total length of lines to draw a dendrogram. This function was developed to evaluate the use of ink for visualization.

Usage

1

Arguments

x

A dendrogram object.x

Value

output The total length.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
#generate sample data
set.seed(1234); par(mar=c(0,0,0,0))
x <- rnorm(10, mean=rep(1:5, each=2), sd=0.4)
y <- rnorm(10, mean=rep(c(1,2), each=5), sd=0.4)
dataFrame <- data.frame(x=x, y=y, row.names=c(1:10))
#calculate Euclidian distance
distxy <- dist(dataFrame)
#hierachical clustering "complete" linkage by default
hc <- hclust(distxy)

total_length <- cal_total_length(as.dendrogram(hc))