同年代の結婚率を調べた。
今年はよく結婚式に呼ばれるので、同年代がどのくらい結婚しているのかfacebookから調べたみた。
Rstudioでグラフを作成してみた。
下記からダウンロードしてインストールしました。
R
http://cran.md.tsukuba.ac.jp/bin/macosx/
Rstudio
http://www.rstudio.com/
調査人数62名
結婚した人27
未婚者35
Rstudioのコンソールを下記で実行。
library(ggplot2) marriagedata <- data.frame(marriage=c("unmarried","marriage"), val=c(35,27)) ggplot(marriagedata, aes(x="", y=val, fill=marriage)) + geom_bar(width=1, stat='identity') + coord_polar("y")
実行結果した時に画面
実行結果のグラフです。
unmarriedが未婚者(56%)です。
marriageが結婚者(44%)です。
未婚者がまだ50%超だったのにビックリです。来年は、30歳なのでまだまだ結婚式ラッシュはとまりそうにないと思った29歳の秋です。
ご祝儀保険とかないですかね。
Rstudioは、面白そうなのでくだらないことを調べたいと思います。