1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/get_subdendrograms.R
\name{find_dendrogram}
\alias{find_dendrogram}
\title{Search for the sub-dendrogram structure composed of selected labels}
\usage{
find_dendrogram(dend, selected_labels)
}
\arguments{
\item{dend}{a dendrogram object}
\item{selected_labels}{A character vector with the labels we expect to have
in the sub-dendrogram. This doesn't have to be in the same order as in the dendrogram.}
}
\value{
Either a sub-dendrogram composed of only members of selected_labels.
If such a sub-dendrogram doesn't exist, the function returns NULL.
}
\description{
Given a dendrogram object, the function performs a recursive DFS algorithm to determine
the sub-dendrogram which is composed of (exactly) all 'selected_labels'.
}
\examples{
\dontrun{
# define dendrogram object to play with:
dend <- iris[, -5] \%>\%
dist() \%>\%
hclust() \%>\%
as.dendrogram() \%>\%
set("labels_to_character") \%>\%
color_branches(k = 5)
first.subdend.only <- names(cutree(dend, 4)[cutree(dend, 4) == 1])
sub.dend <- find_dendrogram(dend, first.subdend.only)
# Plotting the result
par(mfrow = c(1, 2))
plot(dend, main = "Original dendrogram")
plot(sub.dend, main = "First subdendrogram")
dend <- 1:10 \%>\%
dist() \%>\%
hclust() \%>\%
as.dendrogram() \%>\%
set("labels_to_character") \%>\%
color_branches(k = 5)
selected_labels <- as.character(1:4)
sub_dend <- find_dendrogram(dend, selected_labels)
plot(dend, main = "Original dendrogram")
plot(sub_dend, main = "First subdendrogram")
}
}
|
