面用面表示数据矩阵的行
faces(xy, which.row, fill = FALSE, nrow, ncol, scale = TRUE, byrow = FALSE, main, labels)
xy : xy数据矩阵,行表示个体,列表示属性
which.row : 定义输入矩阵行的排列
fill : 如果(fill==TRUE),则仅转换面的第一个nc属性,nc是xy的列数
nrow : 图形设备上的面列数
ncol : 面行数
scale : 如果(scale==TRUE),属性将被规格化
byrow : 如果(byrow==TRUE),则xy将被转置
main : 标题
labels : 用作面名称的字符串
faces(rbind(1:3,5:3,3:5,5:7))
data(longley)
faces(longley[1:9,])
set.seed(17)
faces(matrix(sample(1:1000,128,),16,8),main="random faces")
if(interactive()){
tke1 < - rep( list(list('slider',from=0,to=1,init=0.5,resolution=0.1)), 15)
names(tke1) < - c('FaceHeight','FaceWidth','FaceShape','MouthHeight',
'MouthWidth','SmileCurve','EyesHeight','EyesWidth','HairHeight',
'HairWidth','HairStyle','NoseHeight','NoseWidth','EarWidth','EarHeight')
tkfun1 < - function(...){
tmpmat < - rbind(Min=0,Adjust=unlist(list(...)),Max=1)
faces(tmpmat, scale=FALSE)
}
tkexamp( tkfun1, list(tke1), plotloc='left', hscale=2, vscale=2 )
}