PlotFaces {DescTools}  R Documentation 
Plot Chernoff faces. The rows of a data matrix represent cases and the columns the variables.
PlotFaces(xy, which.row, fill = FALSE, nr, nc,
scale = TRUE, byrow = FALSE, main, labels, col = "white")
xy 

which.row 
defines a permutation of the rows of the input matrix. 
fill 
logic. If set to 
nr 
number of columns of faces on graphics device 
nc 
number of rows of faces 
scale 
logic. If set to 
byrow 

main 
title. 
labels 
character strings to use as names for the faces. 
col 
a vector of colors used for the parts of the faces. Colors are recycled in the order: "nose", "eyes", "hair", "face", "lips", "ears". Default is NA, which will omit colors. 
The features paramters of this implementation are:
1 height of face
2 width of face
3 shape of face
4 height of mouth
5 width of mouth
6 curve of smile
7 height of eyes
8 width of eyes
9 height of hair
10 width of hair
11 styling of hair
12 height of nose
13 width of nose
14 width of ears
15 height of ears
For details look at the literate program of faces
information about usage of variables for face elements is returned invisibly
based on version 12/2009
H. P. Wolf, some changes Andri Signorell <andri@signorell.net>
Chernoff, H. (1973) The use of faces to represent statistiscal assoziation,
JASA, 68, pp 361–368.
The smooth curves are computed by an algorithm found in:
Ralston, A. and Rabinowitz, P. (1985)
A first course in numerical analysis, McGrawHill, pp 76ff.
PlotFaces(rbind(1:3,5:3,3:5,5:7))
data(longley)
PlotFaces(longley[1:9,])
set.seed(17)
PlotFaces(matrix(sample(1:1000,128,), 16, 8), main="random faces")
means < lapply(iris[,5], tapply, iris$Species, mean)
m < t(do.call(rbind, means))
m < cbind(m, matrix(rep(1, 11*3), nrow=3))
# define the colors, first for all faces the same
col < replicate(3, c("orchid1", "olivedrab", "goldenrod4",
"peachpuff", "darksalmon", "peachpuff3"))
rownames(col) < c("nose","eyes","hair","face","lips","ears")
# change haircolor individually for each face
col[3, ] < c("lightgoldenrod", "coral3", "sienna4")
z < PlotFaces(m, nr=1, nc=3, col=col)
# print the used coding
print(z$info, right=FALSE)