Показать сообщение отдельно
Старый 12.02.2013, 14:17   #29
Hogfather
Platinum Member
 
Аватар для Hogfather
 
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,281
По умолчанию GNU R - лица Чернова

Задал мне тут вопрос Дмитрий В., говорит, Хогфазер, а есть ли в 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"))

Последний раз редактировалось Hogfather; 12.02.2013 в 11:02.
---------
DNF is not an option
Hogfather вне форума   Ответить с цитированием
Реклама