小樽市の町丁別・年齢別・男女別の可視化

散布図 棒グラフ 箱ひげ図 バイオリン 回帰曲線
https://www.city.otaru.lg.jp/docs/2020120200171/

小樽市の町丁別・年齢別・男女別人口及び世帯数(令和3年4月)データを用いています。


  1. #Rの作業ディレクトリの確定
  2. setwd("csvファイルの場所")
  3. #tidyverseパッケージを読み込む
  4. library(tidyverse)
  5. #csvファイルを変数dataに読み込み
  6. data <- read_csv("csvファイルの名前",locale =locale(encoding="SHIFT-JIS"))
  7. #141行目の合計データの削除
  8. data <- data[-141,]
  9. #必要な行列だけ名前を付け、抽出する
  10. data <- data %>%
  11. rename(region="町丁名    ",young="年少人口 計 ",youngmen="年少人口 男 ",youngwomen="年少人口 女 ",working="生産年令人口 計 ",workingmen="生産年令人口 男 ",workingwomen="生産年令人口 女 ",old="老年人口 計 ",oldmen="老年人口 男 ",oldwomen="老年人口 女 ",total="合計 計  ",totalmen="合計 男  ",totalwomen="合計 女  ",households="世帯数   ") %>%
  12. select(region,young,youngmen,youngwomen,working,workingmen,workingwomen,old,oldmen,oldwomen,total,totalmen,totalwomen,households)
https://otaru-open.city/