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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/labels_colors.R
\name{labels_colors}
\alias{labels_colors}
\alias{labels_col}
\alias{labels_colors<-}
\title{Retrieve/assign colors to the labels of a dendrogram}
\source{
Heavily inspired by the code in the example of \link{dendrapply},
so credit should go to Martin Maechler.
I also implemented some ideas from Gregory Jefferis's dendroextras package
(having the "names" of the returned vector be the labels).
}
\usage{
labels_colors(dend, labels = TRUE, ...)
labels_col(dend, labels = TRUE, ...)
labels_colors(dend, ...) <- value
}
\arguments{
\item{dend}{a dendrogram object}
\item{labels}{Boolean (default is TRUE), should the returned vector of colors
return with the leaves labels as names.}
\item{...}{not used}
\item{value}{a vector of colors to be used as new label's colors for the dendrogram}
}
\value{
A vector with the dendrogram's labels colors (or a colored dendrogram,
in case assignment is used). The colors are labeled.
}
\description{
Retrieve/assign colors to the labels of a dendrogram. Note that usually dend objects come without any color assignment (and the output will be NULL, until colors are assigned).
}
\examples{
# define dendrogram object to play with:
hc <- hclust(dist(USArrests[1:3, ]), "ave")
dend <- as.dendrogram(hc)
# Defaults:
labels_colors(dend)
plot(dend)
# let's add some color:
labels_colors(dend) <- 2:4
labels_colors(dend)
plot(dend)
# doesn't work...
# get_nodes_attr(dend, "nodePar", include_branches = FALSE)
# changing color to black
labels_colors(dend) <- 1
labels_colors(dend)
plot(dend)
# removing color (and the nodePar completely - if it has no other attributed but lab.col)
suppressWarnings(labels_colors(dend) <- NULL)
labels_colors(dend)
plot(dend)
}
\seealso{
\code{\link[dendextend]{cutree}},\code{\link{dendrogram}},
\code{\link{hclust}}, \code{\link{color_labels}}, \code{\link{color_branches}},
\link{assign_values_to_leaves_edgePar}, \link{get_leaves_branches_col}
}
|
