散布図

通常の散布図

小樽市の地域ごとの散布図。横軸は女性人口、縦軸は男性人口。

  1. #変数abcにggplotをdataデータを基にして適用
  2. abc <- ggplot(data = data)+
  3. #geom_pointで散布図の指定、横軸はtotalmen、縦軸totalwomenはのデータを用いる。黒い丸の大きさは10mmを指定
  4. geom_point(mapping=aes(x=totalmen,y=totalwomen),size=10)+
  5. #出力される文字の大きさの指定
  6. theme(text=element_text(size=50))
  7. #point0.pngとして出力
  8. ggsave(file="point0.png",plot = abc,width = 30,height = 30)

色付きの散布図

上の散布図に色を付けたバージョン。


  1. abc <- ggplot(data = data)+
  2. #地域ごとに色を指定するcolor=districtを追加
  3. geom_point(mapping=aes(x=totalmen,y=totalwomen,color=district),size=10)+
  4. theme(text=element_text(size=50))
  5. ggsave(file="point1.png",plot = abc,width = 30,height = 30)

記号別の散布図

上の散布図に別々の記号を付けたバージョンだが、記号のバリエーションが少なくてすべて網羅できなかった。


  1. abc <- ggplot(data = data)+
  2. #地域ごとに記号を指定するshape=districtを追加
  3. geom_point(mapping=aes(x=totalmen,y=totalwomen,shape=district),size=10)+
  4. theme(text=element_text(size=50))
  5. ggsave(file="point2.png",plot = abc,width = 30,height = 30)

地方ごとの散布図

小樽市の地域ごとに散布図を分けたもの。


  1. abc <- ggplot(data = data)+
  2. geom_point(mapping=aes(x=totalmen,y=totalwomen),size=10)+
  3. #facet_wrapで地域ごとの散布図を指定、nrowで行数の指定
  4. facet_wrap(~ district, nrow=2)+
  5. theme(text=element_text(size=50))
  6. ggsave(file="point3.png",plot = abc,width = 30,height = 30)