今日は選挙ですね。各政党の経済再生手法への賛成・反対の表が、日経新聞朝刊に載っていました。それをささっとRで主成分分析してみました。2次元までで90%の累積寄与率になっています。
D <- read.csv("20121216_nikkei.csv", header=TRUE, row.names=1) biplot(princomp(D), xlim=c(-.5,+.5), ylim=c(-.5,.5), xlab="第1主成分", ylab="第2主成分") grid() quartz.save("20121216_nikkei.png")
グラフの右の方に社民・共産・未来が固まっています。原発と消費税増税とTPPに断固反対している党です。グラフの上方にはTPP賛成・公共事業反対の党が分布しています。左下に重なっているのは消費税増税と公共事業に賛成の自民と国民新です。大地はTPPに猛反対。