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

散布図 棒グラフ 箱ひげ図 バイオリン 回帰曲線

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/