回帰曲線

小樽市の地域ごとの回帰曲線。横軸は女性人口、縦軸は男性人口。


  1. abc <- ggplot(data = data)+
  2. #geom_smoothで回帰曲線を指定
  3. geom_smooth(mapping=aes(x=totalmen,y=totalwomen))+
  4. theme(text=element_text(size=50))
  5. ggsave(file="point4.png",plot = abc,width = 30,height = 30)

散布図と回帰曲線

上の回帰曲線に散布図をつけたもの。縦と横の相関が分かりやすい。


  1. abc <- ggplot(data = data)+
  2. geom_point(mapping=aes(x=totalmen,y=totalwomen,color=district),size=10)+
  3. geom_smooth(mapping=aes(x=totalmen,y=totalwomen))+
  4. theme(text=element_text(size=50))
  5. ggsave(file=point5.png",plot = abc,width = 30,height = 30)