例えば qplot(color, data=diamonds, facets= ~cut) とやると、以下のように因子別の度数を出してくれる。しかし、度数ではなく相対度数が欲しかった（facet間で比べたいので）。 簡単そうだが、やり方見つけるのに半日かかった… d <- as.data.frame(prop.ta…

「for文でggplot回してファイルにまるっと出力させたいなあ・・・」てな時、"aes_string"が使える。 for(dim in names(diamonds)[c(3:4)]) { p = qplot(data=diamonds, facets= ~cut) + aes_string(x= dim) ggsave(file = paste(dim, ".jpeg", sep= ""), plo…