棒グラフ

普通の棒グラフ

  1. #変数abcにggplotをdataデータを基にして適用
  2. abc <- ggplot()+
  3. #geom_pointで棒グラフの指定、横軸はprefectureをH27の値を参照し昇順に並び替えたもの、縦軸はH27のデータを用いる。
  4. geom_bar(data = data,mapping = aes(x =reorder(prefecture,-H27),y=H27),stat="identity")
  5. #bar0.pngとして出力
  6. ggsave(file="bar0.png",plot = abc,width = 30,height = 5)

色付き棒グラフ

  1. abc <- ggplot()+
  2. #地方ごとに色を指定するfill=regionを追加
  3. geom_bar(data = data,mapping = aes(x =reorder(prefecture,-H27),y=H27,fill=region),stat="identity")
  4. ggsave(file="bar1.png",plot = abc,width = 30,height = 5)

地方ごとの棒グラフ

  1. abc <- ggplot()+
  2. #prefectureをregionに変更
  3. geom_bar(data = data,mapping = aes(x =reorder(region,-H27),y=H27,fill=region),stat="identity")
  4. ggsave(file="bar2.png",plot = abc,width = 5,height = 5)

地方ごとの都道府県の人口割合を示す棒グラフ

  1. abc <- ggplot()+
  2. #position="fill"を追加
  3. geom_bar(data = data,mapping = aes(x =reorder(region,-H27),y=H27,fill=prefecture),stat="identity",position="fill")
  4. ggsave(file="bar3.png",plot = abc,width = 10,height = 5)

地方ごとの都道府県の棒グラフ

  1. abc <- ggplot()+
  2. #position="dodge"を追加
  3. geom_bar(data = data,mapping = aes(x =reorder(region,-H27),y=H27,fill=prefecture),stat="identity",position="dodge")
  4. ggsave(file="bar4.png",plot = abc,width = 10,height = 5)

棒グラフを丸めたもの

  1. abc <- ggplot()+
  2. geom_bar(data = data,mapping = aes(x =reorder(region,-H27),y=H27,fill=region),stat="identity")+
  3. #coord_polarを追加
  4. coord_polar()
  5. ggsave(file="bar5.png",plot = abc,width = 5,height = 5)