読者です 読者をやめる 読者になる 読者になる

同年代の結婚率を調べた。

今年はよく結婚式に呼ばれるので、同年代がどのくらい結婚しているのか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")

実行結果した時に画面
f:id:ando_ando_ando:20130930000826j:plain


実行結果のグラフです。
f:id:ando_ando_ando:20130930000541p:plain
unmarriedが未婚者(56%)です。
marriageが結婚者(44%)です。

未婚者がまだ50%超だったのにビックリです。来年は、30歳なのでまだまだ結婚式ラッシュはとまりそうにないと思った29歳の秋です。

ご祝儀保険とかないですかね。


Rstudioは、面白そうなのでくだらないことを調べたいと思います。