Задал мне тут вопрос
Дмитрий В., говорит, Хогфазер, а есть ли в R
лица Чернова, зело они мне на конференции понравились, хочу научному руководителю рожу гнусную состроить, но на научной основе?
Полез посмотреть, есть.
Без комментария, код по трем словарям
Код:
> library(aplpack)
> faces(rbind(c(2.95,3.4,1.25,9.1),c(2.64,2.34,1.3,8.5),c(2.39,1.51,1.20,7.10)),
+ labels=c("Словарь 1","Словарь 2","Словарь 3"),face.type=1)
effect of variables:
modified item Var
"height of face " "Var1"
"width of face " "Var2"
"structure of face" "Var3"
"height of mouth " "Var4"
"width of mouth " "Var1"
"smiling " "Var2"
"height of eyes " "Var3"
"width of eyes " "Var4"
"height of hair " "Var1"
"width of hair " "Var2"
"style of hair " "Var3"
"height of nose " "Var4"
"width of nose " "Var1"
"width of ear " "Var2"
"height of ear " "Var3"
Под спойлером -- более наглядный пример с моими данными.
Добавлено через 13 часов 52 минуты
Как выяснилось, морды можно рисовать также с помощью библиотеки TeachingDemos. Что характерно, там две функции: face и face2. Первая практически совпадает с вышеописанной, но более убого по настройкам. А образец вывода второй функции прилагаю.
Код:
> library(TeachingDemos)
> faces2(rbind(c(2.95,3.4,1.25,9.1),c(2.64,2.34,1.3,8.5),c(2.39,1.51,1.20,7.10)),labels=c("Словарь 1","Словарь 2","Словарь 3"))