箱ひげ図
縦箱ひげ図
小樽市の地域ごとの家庭数の箱ひげ図。
- #変数abcにggplotをdataデータを基にして適用
- abc <- ggplot()+
- #geom_boxplotで箱ひげ図の指定、横軸はdistrictをhouseholdsの値を参照し昇順に並び替えたもの、縦軸はH27のデータを用いる。
- geom_boxplot(data = data,mapping = aes(x =reorder(district,-households),y=households))
- #boxplot0.pngとして出力
- ggsave(file="boxplot0.png",plot = abc,width = 5,height = 5)
横箱ひげ図
上の箱ひげ図に横に倒したバージョン。
- abc <- ggplot()+
- geom_boxplot(data = data,mapping = aes(x =reorder(district,households),y=households))+
- #coord_flipを追加
- coord_flip()
- ggsave(file="boxplot1.png",plot = abc,width = 5,height = 5)
色付き+散布図箱ひげ図
上の箱ひげ図に色と散布図をつけたもの。
- abc <- ggplot(data = data,mapping = aes(x =reorder(district,-households),y=households))+
- #地方ごとに色を区別するfill=districtを追加
- geom_boxplot(mapping = aes(fill=district))+
- #geom_litter()で散布図を追加
- geom_jitter()
- ggsave(file="boxplot2.png",plot = abc,width = 5,height = 5)