Hatena::ブログ(Diary)

極めて個人的なメモ Twitter

Θ・)ノシ Bob#3のメモ帳です。
1972 | 12 |
2003 | 03 | 04 | 05 | 06 | 11 | 12 |
2004 | 01 | 02 | 03 | 04 | 05 | 06 | 09 | 10 | 11 | 12 |
2005 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 |
2006 | 03 | 04 | 05 | 06 | 07 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 05 | 06 | 07 | 10 | 11 | 12 |
2008 | 01 | 02 | 04 | 05 | 08 | 09 | 10 | 11 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 |
2011 | 05 | 06 | 09 | 10 |
2012 | 02 | 03 | 05 | 06 | 08 |
2013 | 01 | 02 | 03 |
2015 | 02 |

2013-01-20 このエントリーを含むブックマーク このエントリーのブックマークコメント

メモ

http://flowingdata.com/2010/08/31/how-to-visualize-data-with-cartoonish-faces/

http://blogs.iq.harvard.edu/sss/archives/2006/11/chernoff_faces_1.shtml


青木先生

source("http://aoki2.si.gunma-u.ac.jp/R/src/face_plot.R", encoding="euc-jp")

source("http://aoki2.si.gunma-u.ac.jp/R/src/face_data.R", encoding="euc-jp")

test <- cbind(1:9,50)

pos <- c(1,rep(2,17),1)

x <- face.data(test, pos)

old <- par(mfrow=c(3, 3))

for(i in 1:9) {

face.plot(x[i,])

}

par(old)

トラックバック - http://d.hatena.ne.jp/bob3/20130120
Connection: close