R/noce_resi.R

In rea-osaka/noce: Number Of Construction from E-stat

#' read residence data
#'
#' This function reads excel files for data of number of
#' construction for residence.
#'
#' @param file_path_v vector of excel files path
#'
#' @return tibble
#' @importFrom magrittr %>%
#' @importFrom rlang :=
#' @export
noce_residence_read_files <- function(file_path_v){

  ans_list <- vector("list", length(file_path_v))

  for(i in seq_along(file_path_v)){
    ans_list[[i]] <- .noce_residence_read_a_file(file_path_v[i])
  }

  ans <- dplyr::bind_rows(ans_list)

  return(ans)
}



# １ファイルの読み込みルーチン
.noce_residence_read_a_file <- function(file_path){

  # 2シート分
  row_obj1 <- readxl::read_excel(file_path, sheet = 1, col_names = .t15_names)
  row_obj2 <- readxl::read_excel(file_path, sheet = 2, col_names = .t15_names)

  # 日付取得
  .target_data <- .find_date_string(row_obj1) %>% .into_dateobj()

  # 余計なものを省いて
  row_obj <- row_obj1 %>% .clean_rowdata() %>%
    dplyr::bind_rows(row_obj2 %>% .clean_rowdata()) %>%
    .add_area_item(.localDB_area_t15) %>%
    .add_date_item(.target_data)

  # longer pivotの処理
  ans <-
    list(row_obj) %>%
    .make_dividedlist(1,"cat02_code") %>%
    .make_dividedlist(2,"cat01_code") %>%
    .make_dividedlist(3,"tab_code")

  df_ans <- NULL
  for(i in seq_along(ans)){
    df_ans  <- dplyr::bind_rows(df_ans, ans[[i]] %>% .rename_value())
  }

  # コード対応表の追加

  ans <- df_ans %>%
    dplyr::left_join(.localDB_tab_t15, by = "tab_code") %>%
    dplyr::left_join(.localDB_cat01_t15, by = "cat01_code") %>%
    dplyr::left_join(.localDB_cat02_t15, by = "cat02_code")

  # 整頓
  ans <- ans %>%
    dplyr::select(-.data$area) %>%
    dplyr::select(.data$tab_code, .data$`表章項目`,
                  .data$cat01_code, .data$`利用関係`,
                  .data$cat02_code, .data$`工事`,
                  .data$area_code, .data$`地域`,
                  .data$time_code, .data$`時間軸(月次)`, .data$date,
                  .data$unit,
                  .data$value) %>%
    dplyr::mutate(value = as.numeric(.data$value),
                  `利用関係` = factor(.data$`利用関係`, 
                                  levels = c("給与住宅", "持家", "貸家" ,"分譲住宅", "計")),
                  `工事` = factor(.data$`工事`, 
                                  levels = c("新設", "その他", "計")))

  return(ans)
}

############################################################################
# t15 database
############################################################################

# 表１５用の列名
.t15_names <- c("area",
               "sp",
               "11_11_18",
               "11_11_13",
               "12_11_18",
               "12_11_13",
               "12_12_18",
               "12_12_13",
               "12_13_18",
               "12_13_13",
               "12_14_18",
               "12_14_13",
               "12_15_18",
               "12_15_13",
               "13_11_18",
               "13_11_13",
               "13_12_18",
               "13_12_13",
               "13_13_18",
               "13_13_13",
               "13_14_18",
               "13_14_13",
               "13_15_18",
               "13_15_13"
)

# tab 対応表
.localDB_tab_t15 <-
  structure(
    list(`tab_code` = c("18", "13"),
         `表章項目` = c("戸数・件数", "床面積の合計"),
         `unit` = c("戸・件", "m2")),
    row.names = c(NA, -2L),
    class = c("tbl_df", "tbl", "data.frame"))

# cat01 対応表
.localDB_cat01_t15 <-
  structure(
    list(`cat01_code` = c("11", "12", "13", "14", "15"),
         `利用関係` = c("計", "持家", "貸家", "給与住宅", "分譲住宅")),
    row.names = c(NA, -5L ),
    class = c("tbl_df", "tbl", "data.frame"))


# cat02 対応表
.localDB_cat02_t15 <-
  structure(
    list(`cat02_code` = c("11", "12", "13"),
         `工事` = c("計", "新設", "その他")),
    row.names = c(NA, -3L),
    class = c("tbl_df", "tbl", "data.frame"))


# 地域コード対応表
.localDB_area_t15 <-
  structure(
    list(`area_code` = c("00000", "01000", "02000", "03000",
                         "04000", "05000", "06000", "07000", "08000", "09000", "10000",
                         "11000", "12000", "13000", "14000", "15000", "16000", "17000",
                         "18000", "19000", "20000", "21000", "22000", "23000", "24000",
                         "25000", "26000", "27000", "28000", "29000", "30000", "31000",
                         "32000", "33000", "34000", "35000", "36000", "37000", "38000",
                         "39000", "40000", "41000", "42000", "43000", "44000", "45000",
                         "46000", "47000", "00001", "01001", "02001", "03001", "04001",
                         "05001", "06001", "07001", "08001", "09001", "10001", "11001",
                         "12001", "13001", "14001", "15001", "16001", "17001", "18001",
                         "19001", "20001", "21001", "22001", "23001", "24001", "25001",
                         "26001", "27001", "28001", "29001", "30001", "31001", "32001",
                         "33001", "34001", "35001", "36001", "37001", "38001", "39001",
                         "40001", "41001", "42001", "43001", "44001", "45001", "46001",
                         "47001", "00002", "01002", "02002", "03002", "04002", "05002",
                         "06002", "07002", "08002", "09002", "10002", "11002", "12002",
                         "13002", "14002", "15002", "16002", "17002", "18002", "19002",
                         "20002", "21002", "22002", "23002", "24002", "25002", "26002",
                         "27002", "28002", "29002", "30002", "31002", "32002", "33002",
                         "34002", "35002", "36002", "37002", "38002", "39002", "40002",
                         "41002", "42002", "43002", "44002", "45002", "46002", "47002",
                         "01100", "01101", "01102", "01103", "01104", "01105", "01106",
                         "01107", "01108", "01109", "01110", "01202", "01203", "01204",
                         "01205", "01206", "01207", "01208", "01209", "01210", "01211",
                         "01212", "01213", "01214", "01215", "01216", "01217", "01218",
                         "01219", "01220", "01221", "01222", "01223", "01224", "01225",
                         "01226", "01227", "01228", "01229", "01230", "01231", "01233",
                         "01234", "01235", "01236", "02201", "02202", "02203", "02204",
                         "02205", "02206", "02207", "02208", "02209", "02210", "03201",
                         "03202", "03203", "03205", "03206", "03207", "03208", "03209",
                         "03210", "03211", "03213", "03214", "03215", "03216", "04100",
                         "04101", "04102", "04103", "04104", "04105", "04202", "04203",
                         "04205", "04206", "04207", "04208", "04209", "04211", "04212",
                         "04213", "04214", "04215", "04216", "05201", "05202", "05203",
                         "05204", "05206", "05207", "05209", "05210", "05211", "05212",
                         "05213", "05214", "05215", "06201", "06202", "06203", "06204",
                         "06205", "06206", "06207", "06208", "06209", "06210", "06211",
                         "06212", "06213", "07201", "07202", "07203", "07204", "07205",
                         "07207", "07208", "07209", "07210", "07211", "07212", "07213",
                         "07214", "08201", "08202", "08203", "08204", "08205", "08207",
                         "08208", "08210", "08212", "08214", "08215", "08216", "08217",
                         "08219", "08220", "08221", "08222", "08223", "08224", "08225",
                         "08226", "08227", "08228", "08229", "08230", "08231", "08232",
                         "08233", "08234", "08235", "08236", "08211", "09201", "09202",
                         "09203", "09204", "09205", "09206", "09208", "09209", "09210",
                         "09211", "09213", "09214", "09215", "09216", "10201", "10202",
                         "10203", "10204", "10205", "10206", "10207", "10208", "10209",
                         "10210", "10211", "10212", "11100", "11101", "11102", "11103",
                         "11104", "11105", "11106", "11107", "11108", "11109", "11110",
                         "11201", "11202", "11203", "11206", "11207", "11208", "11209",
                         "11210", "11211", "11212", "11214", "11215", "11216", "11217",
                         "11218", "11219", "11221", "11222", "11223", "11224", "11225",
                         "11226", "11227", "11228", "11229", "11230", "11231", "11232",
                         "11233", "11234", "11235", "11237", "11238", "11239", "11240",
                         "11241", "11242", "11243", "11245", "11246", "12100", "12101",
                         "12102", "12103", "12104", "12105", "12106", "12202", "12203",
                         "12204", "12205", "12206", "12207", "12208", "12210", "12211",
                         "12212", "12213", "12215", "12216", "12217", "12218", "12219",
                         "12220", "12221", "12222", "12223", "12224", "12225", "12226",
                         "12227", "12228", "12229", "12230", "12231", "12232", "12233",
                         "12234", "12235", "12236", "12237", "12238", "12239", "13100",
                         "13101", "13102", "13103", "13104", "13105", "13106", "13107",
                         "13108", "13109", "13110", "13111", "13112", "13113", "13114",
                         "13115", "13116", "13117", "13118", "13119", "13120", "13121",
                         "13122", "13123", "13201", "13202", "13203", "13204", "13205",
                         "13206", "13207", "13208", "13209", "13210", "13211", "13212",
                         "13213", "13214", "13215", "13218", "13219", "13220", "13221",
                         "13222", "13223", "13224", "13225", "13227", "13228", "13229",
                         "14100", "14101", "14102", "14103", "14104", "14105", "14106",
                         "14107", "14108", "14109", "14110", "14111", "14112", "14113",
                         "14114", "14115", "14116", "14117", "14118", "14130", "14131",
                         "14132", "14133", "14134", "14135", "14136", "14137", "14150",
                         "14151", "14152", "14153", "14201", "14203", "14204", "14205",
                         "14206", "14207", "14208", "14210", "14211", "14212", "14213",
                         "14214", "14215", "14216", "14217", "14218", "15100", "15101",
                         "15102", "15103", "15104", "15105", "15106", "15107", "15108",
                         "15202", "15204", "15205", "15206", "15208", "15209", "15210",
                         "15211", "15212", "15213", "15216", "15217", "15218", "15222",
                         "15223", "15224", "15225", "15226", "15227", "16201", "16202",
                         "16204", "16205", "16206", "16207", "16208", "16209", "16210",
                         "16211", "17201", "17202", "17203", "17204", "17205", "17206",
                         "17207", "17209", "17210", "17211", "17212", "18201", "18202",
                         "18204", "18205", "18206", "18207", "18208", "18209", "18210",
                         "19201", "19202", "19204", "19205", "19206", "19207", "19208",
                         "19209", "19210", "19211", "19212", "19213", "19214", "20201",
                         "20202", "20203", "20204", "20205", "20206", "20207", "20208",
                         "20209", "20210", "20211", "20212", "20213", "20214", "20215",
                         "20217", "20218", "20219", "20220", "21201", "21202", "21203",
                         "21204", "21205", "21206", "21207", "21208", "21209", "21210",
                         "21211", "21212", "21213", "21214", "21215", "21216", "21217",
                         "21218", "21219", "21220", "21221", "22100", "22101", "22102",
                         "22103", "22130", "22131", "22132", "22133", "22134", "22135",
                         "22136", "22137", "22203", "22205", "22206", "22207", "22208",
                         "22209", "22210", "22211", "22212", "22213", "22214", "22215",
                         "22216", "22219", "22220", "22221", "22222", "22223", "22224",
                         "22225", "22226", "23100", "23101", "23102", "23103", "23104",
                         "23105", "23106", "23107", "23108", "23109", "23110", "23111",
                         "23112", "23113", "23114", "23115", "23116", "23201", "23202",
                         "23203", "23204", "23205", "23206", "23207", "23208", "23209",
                         "23210", "23211", "23212", "23213", "23214", "23215", "23216",
                         "23217", "23219", "23220", "23221", "23222", "23223", "23224",
                         "23225", "23226", "23227", "23228", "23229", "23230", "23231",
                         "23232", "23233", "23234", "23235", "23236", "23237", "23238",
                         "24201", "24202", "24203", "24204", "24205", "24207", "24208",
                         "24209", "24210", "24211", "24212", "24214", "24215", "24216",
                         "25201", "25202", "25203", "25204", "25206", "25207", "25208",
                         "25209", "25210", "25211", "25212", "25213", "25214", "26100",
                         "26101", "26102", "26103", "26104", "26105", "26106", "26107",
                         "26108", "26109", "26110", "26111", "26201", "26202", "26203",
                         "26204", "26205", "26206", "26207", "26208", "26209", "26210",
                         "26211", "26212", "26213", "26214", "27100", "27102", "27103",
                         "27104", "27106", "27107", "27108", "27109", "27111", "27113",
                         "27114", "27115", "27116", "27117", "27118", "27119", "27120",
                         "27121", "27122", "27123", "27124", "27125", "27126", "27127",
                         "27128", "27140", "27141", "27142", "27143", "27144", "27145",
                         "27146", "27147", "27202", "27203", "27204", "27205", "27206",
                         "27207", "27208", "27209", "27210", "27211", "27212", "27213",
                         "27214", "27215", "27216", "27217", "27218", "27219", "27220",
                         "27221", "27222", "27223", "27224", "27225", "27226", "27227",
                         "27228", "27229", "27230", "27231", "27232", "28100", "28101",
                         "28102", "28105", "28106", "28107", "28108", "28109", "28110",
                         "28111", "28201", "28202", "28203", "28204", "28205", "28206",
                         "28207", "28208", "28209", "28210", "28212", "28213", "28214",
                         "28215", "28216", "28217", "28218", "28219", "28220", "28221",
                         "28222", "28223", "28224", "28225", "28226", "28227", "28228",
                         "28229", "29201", "29202", "29203", "29204", "29205", "29206",
                         "29207", "29208", "29209", "29210", "29211", "29212", "30201",
                         "30202", "30203", "30204", "30205", "30206", "30207", "30208",
                         "30209", "31201", "31202", "31203", "31204", "32201", "32202",
                         "32203", "32204", "32205", "32206", "32207", "32209", "33100",
                         "33101", "33102", "33103", "33104", "33202", "33203", "33204",
                         "33205", "33207", "33208", "33209", "33210", "33211", "33212",
                         "33213", "33214", "33215", "33216", "34100", "34101", "34102",
                         "34103", "34104", "34105", "34106", "34107", "34108", "34202",
                         "34203", "34204", "34205", "34207", "34208", "34209", "34210",
                         "34211", "34212", "34213", "34214", "34215", "35201", "35202",
                         "35203", "35204", "35206", "35207", "35208", "35210", "35211",
                         "35212", "35213", "35215", "35216", "36201", "36202", "36203",
                         "36204", "36205", "36206", "36207", "36208", "37201", "37202",
                         "37203", "37204", "37205", "37206", "37207", "37208", "38201",
                         "38202", "38203", "38204", "38205", "38206", "38207", "38210",
                         "38213", "38214", "38215", "39201", "39202", "39203", "39204",
                         "39205", "39206", "39208", "39209", "39210", "39211", "39212",
                         "40100", "40101", "40103", "40105", "40106", "40107", "40108",
                         "40109", "40130", "40131", "40132", "40133", "40134", "40135",
                         "40136", "40137", "40202", "40203", "40204", "40205", "40206",
                         "40207", "40210", "40211", "40212", "40213", "40214", "40215",
                         "40216", "40217", "40218", "40219", "40220", "40221", "40223",
                         "40224", "40225", "40226", "40227", "40228", "40229", "40230",
                         "40231", "41201", "41202", "41203", "41204", "41205", "41206",
                         "41207", "41208", "41209", "41210", "42201", "42202", "42203",
                         "42204", "42205", "42207", "42208", "42209", "42210", "42211",
                         "42212", "42213", "42214", "43100", "43101", "43102", "43103",
                         "43104", "43105", "43202", "43203", "43204", "43205", "43206",
                         "43208", "43210", "43211", "43212", "43213", "43214", "43215",
                         "43216", "44201", "44202", "44203", "44204", "44205", "44206",
                         "44207", "44208", "44209", "44210", "44211", "44212", "44213",
                         "44214", "45201", "45202", "45203", "45204", "45205", "45206",
                         "45207", "45208", "45209", "46201", "46203", "46204", "46206",
                         "46208", "46210", "46213", "46214", "46215", "46216", "46217",
                         "46218", "46219", "46220", "46221", "46222", "46223", "46224",
                         "46225", "47201", "47205", "47207", "47208", "47209", "47210",
                         "47211", "47212", "47213", "47214", "47215"),
         `地域` = c("全国",
                  "北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県",
                  "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県",
                  "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県",
                  "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県",
                  "奈良県", "和歌山県", "鳥取県", "島根県", "岡山県", "広島県",
                  "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", "佐賀県",
                  "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県",
                  "全国市部", "北海道市部", "青森県市部", "岩手県市部", "宮城県市部",
                  "秋田県市部", "山形県市部", "福島県市部", "茨城県市部", "栃木県市部",
                  "群馬県市部", "埼玉県市部", "千葉県市部", "東京都市部", "神奈川県市部",
                  "新潟県市部", "富山県市部", "石川県市部", "福井県市部", "山梨県市部",
                  "長野県市部", "岐阜県市部", "静岡県市部", "愛知県市部", "三重県市部",
                  "滋賀県市部", "京都府市部", "大阪府市部", "兵庫県市部", "奈良県市部",
                  "和歌山県市部", "鳥取県市部", "島根県市部", "岡山県市部", "広島県市部",
                  "山口県市部", "徳島県市部", "香川県市部", "愛媛県市部", "高知県市部",
                  "福岡県市部", "佐賀県市部", "長崎県市部", "熊本県市部", "大分県市部",
                  "宮崎県市部", "鹿児島県市部", "沖縄県市部", "全国郡部", "北海道郡部",
                  "青森県郡部", "岩手県郡部", "宮城県郡部", "秋田県郡部", "山形県郡部",
                  "福島県郡部", "茨城県郡部", "栃木県郡部", "群馬県郡部", "埼玉県郡部",
                  "千葉県郡部", "東京都郡部", "神奈川県郡部", "新潟県郡部", "富山県郡部",
                  "石川県郡部", "福井県郡部", "山梨県郡部", "長野県郡部", "岐阜県郡部",
                  "静岡県郡部", "愛知県郡部", "三重県郡部", "滋賀県郡部", "京都府郡部",
                  "大阪府郡部", "兵庫県郡部", "奈良県郡部", "和歌山県郡部", "鳥取県郡部",
                  "島根県郡部", "岡山県郡部", "広島県郡部", "山口県郡部", "徳島県郡部",
                  "香川県郡部", "愛媛県郡部", "高知県郡部", "福岡県郡部", "佐賀県郡部",
                  "長崎県郡部", "熊本県郡部", "大分県郡部", "宮崎県郡部", "鹿児島県郡部",
                  "沖縄県郡部", "札幌市", "中央区", "北区", "東区", "白石区", "豊平区",
                  "南区", "西区", "厚別区", "手稲区", "清田区", "函館市", "小樽市",
                  "旭川市", "室蘭市", "釧路市", "帯広市", "北見市", "夕張市", "岩見沢市",
                  "網走市", "留萌市", "苫小牧市", "稚内市", "美唄市", "芦別市",
                  "江別市", "赤平市", "紋別市", "士別市", "名寄市", "三笠市", "根室市",
                  "千歳市", "滝川市", "砂川市", "歌志内市", "深川市", "富良野市",
                  "登別市", "恵庭市", "伊達市", "北広島市", "石狩市", "北斗市",
                  "青森市", "弘前市", "八戸市", "黒石市", "五所川原市", "十和田市",
                  "三沢市", "むつ市", "つがる市", "平川市", "盛岡市", "宮古市",
                  "大船渡市", "花巻市", "北上市", "久慈市", "遠野市", "一関市",
                  "陸前高田市", "釜石市", "二戸市", "八幡平市", "奥州市", "滝沢市",
                  "仙台市", "青葉区", "宮城野区", "若林区", "太白区", "泉区", "石巻市",
                  "塩竈市", "気仙沼市", "白石市", "名取市", "角田市", "多賀城市",
                  "岩沼市", "登米市", "栗原市", "東松島市", "大崎市", "富谷市",
                  "秋田市", "能代市", "横手市", "大館市", "男鹿市", "湯沢市", "鹿角市",
                  "由利本荘市", "潟上市", "大仙市", "北秋田市", "にかほ市", "仙北市",
                  "山形市", "米沢市", "鶴岡市", "酒田市", "新庄市", "寒河江市",
                  "上山市", "村山市", "長井市", "天童市", "東根市", "尾花沢市",
                  "南陽市", "福島市", "会津若松市", "郡山市", "いわき市", "白河市",
                  "須賀川市", "喜多方市", "相馬市", "二本松市", "田村市", "南相馬市",
                  "伊達市", "本宮市", "水戸市", "日立市", "土浦市", "古河市", "石岡市",
                  "結城市", "龍ケ崎市", "下妻市", "常陸太田市", "高萩市", "北茨城市",
                  "笠間市", "取手市", "牛久市", "つくば市", "ひたちなか市", "鹿嶋市",
                  "潮来市", "守谷市", "常陸大宮市", "那珂市", "筑西市", "坂東市",
                  "稲敷市", "かすみがうら市", "桜川市", "神栖市", "行方市", "鉾田市",
                  "つくばみらい市", "小美玉市", "常総市", "宇都宮市", "足利市",
                  "栃木市", "佐野市", "鹿沼市", "日光市", "小山市", "真岡市", "大田原市",
                  "矢板市", "那須塩原市", "さくら市", "那須烏山市", "下野市", "前橋市",
                  "高崎市", "桐生市", "伊勢崎市", "太田市", "沼田市", "館林市",
                  "渋川市", "藤岡市", "富岡市", "安中市", "みどり市", "さいたま市",
                  "西区", "北区", "大宮区", "見沼区", "中央区", "桜区", "浦和区",
                  "南区", "緑区", "岩槻区", "川越市", "熊谷市", "川口市", "行田市",
                  "秩父市", "所沢市", "飯能市", "加須市", "本庄市", "東松山市",
                  "春日部市", "狭山市", "羽生市", "鴻巣市", "深谷市", "上尾市",
                  "草加市", "越谷市", "蕨市", "戸田市", "入間市", "鳩ケ谷市", "朝霞市",
                  "志木市", "和光市", "新座市", "桶川市", "久喜市", "北本市", "八潮市",
                  "富士見市", "三郷市", "蓮田市", "坂戸市", "幸手市", "鶴ヶ島市",
                  "日高市", "吉川市", "ふじみ野市", "白岡市", "千葉市", "中央区",
                  "花見川区", "稲毛区", "若葉区", "緑区", "美浜区", "銚子市", "市川市",
                  "船橋市", "館山市", "木更津市", "松戸市", "野田市", "茂原市",
                  "成田市", "佐倉市", "東金市", "旭市", "習志野市", "柏市", "勝浦市",
                  "市原市", "流山市", "八千代市", "我孫子市", "鴨川市", "鎌ケ谷市",
                  "君津市", "富津市", "浦安市", "四街道市", "袖ケ浦市", "八街市",
                  "印西市", "白井市", "富里市", "南房総市", "匝瑳市", "香取市",
                  "山武市", "いすみ市", "大網白里市", "特別区部", "千代田区", "中央区",
                  "港区", "新宿区", "文京区", "台東区", "墨田区", "江東区", "品川区",
                  "目黒区", "大田区", "世田谷区", "渋谷区", "中野区", "杉並区",
                  "豊島区", "北区", "荒川区", "板橋区", "練馬区", "足立区", "葛飾区",
                  "江戸川区", "八王子市", "立川市", "武蔵野市", "三鷹市", "青梅市",
                  "府中市", "昭島市", "調布市", "町田市", "小金井市", "小平市",
                  "日野市", "東村山市", "国分寺市", "国立市", "福生市", "狛江市",
                  "東大和市", "清瀬市", "東久留米市", "武蔵村山市", "多摩市", "稲城市",
                  "羽村市", "あきる野市", "西東京市", "横浜市", "鶴見区", "神奈川区",
                  "西区", "中区", "南区", "保土ケ谷区", "磯子区", "金沢区", "港北区",
                  "戸塚区", "港南区", "旭区", "緑区", "瀬谷区", "栄区", "泉区",
                  "青葉区", "都筑区", "川崎市", "川崎区", "幸区", "中原区", "高津区",
                  "多摩区", "宮前区", "麻生区", "相模原市", "緑区", "中央区", "南区",
                  "横須賀市", "平塚市", "鎌倉市", "藤沢市", "小田原市", "茅ヶ崎市",
                  "逗子市", "三浦市", "秦野市", "厚木市", "大和市", "伊勢原市",
                  "海老名市", "座間市", "南足柄市", "綾瀬市", "新潟市", "北区",
                  "東区", "中央区", "江南区", "秋葉区", "南区", "西区", "西蒲区",
                  "長岡市", "三条市", "柏崎市", "新発田市", "小千谷市", "加茂市",
                  "十日町市", "見附市", "村上市", "燕市", "糸魚川市", "妙高市",
                  "五泉市", "上越市", "阿賀野市", "佐渡市", "魚沼市", "南魚沼市",
                  "胎内市", "富山市", "高岡市", "魚津市", "氷見市", "滑川市", "黒部市",
                  "砺波市", "小矢部市", "南砺市", "射水市", "金沢市", "七尾市",
                  "小松市", "輪島市", "珠洲市", "加賀市", "羽咋市", "かほく市",
                  "白山市", "能美市", "野々市市", "福井市", "敦賀市", "小浜市",
                  "大野市", "勝山市", "鯖江市", "あわら市", "越前市", "坂井市",
                  "甲府市", "富士吉田市", "都留市", "山梨市", "大月市", "韮崎市",
                  "南アルプス市", "北杜市", "甲斐市", "笛吹市", "上野原市", "甲州市",
                  "中央市", "長野市", "松本市", "上田市", "岡谷市", "飯田市", "諏訪市",
                  "須坂市", "小諸市", "伊那市", "駒ヶ根市", "中野市", "大町市",
                  "飯山市", "茅野市", "塩尻市", "佐久市", "千曲市", "東御市", "安曇野市",
                  "岐阜市", "大垣市", "高山市", "多治見市", "関市", "中津川市",
                  "美濃市", "瑞浪市", "羽島市", "恵那市", "美濃加茂市", "土岐市",
                  "各務原市", "可児市", "山県市", "瑞穂市", "飛騨市", "本巣市",
                  "郡上市", "下呂市", "海津市", "静岡市", "葵区", "駿河区", "清水区",
                  "浜松市", "中区", "東区", "西区", "南区", "北区", "浜北区", "天竜区",
                  "沼津市", "熱海市", "三島市", "富士宮市", "伊東市", "島田市",
                  "富士市", "磐田市", "焼津市", "掛川市", "藤枝市", "御殿場市",
                  "袋井市", "下田市", "裾野市", "湖西市", "伊豆市", "御前崎市",
                  "菊川市", "伊豆の国市", "牧之原市", "名古屋市", "千種区", "東区",
                  "北区", "西区", "中村区", "中区", "昭和区", "瑞穂区", "熱田区",
                  "中川区", "港区", "南区", "守山区", "緑区", "名東区", "天白区",
                  "豊橋市", "岡崎市", "一宮市", "瀬戸市", "半田市", "春日井市",
                  "豊川市", "津島市", "碧南市", "刈谷市", "豊田市", "安城市", "西尾市",
                  "蒲郡市", "犬山市", "常滑市", "江南市", "小牧市", "稲沢市", "新城市",
                  "東海市", "大府市", "知多市", "知立市", "尾張旭市", "高浜市",
                  "岩倉市", "豊明市", "日進市", "田原市", "愛西市", "清須市", "北名古屋市",
                  "弥富市", "みよし市", "あま市", "長久手市", "津市", "四日市市",
                  "伊勢市", "松阪市", "桑名市", "鈴鹿市", "名張市", "尾鷲市", "亀山市",
                  "鳥羽市", "熊野市", "いなべ市", "志摩市", "伊賀市", "大津市",
                  "彦根市", "長浜市", "近江八幡市", "草津市", "守山市", "栗東市",
                  "甲賀市", "野洲市", "湖南市", "高島市", "東近江市", "米原市",
                  "京都市", "北区", "上京区", "左京区", "中京区", "東山区", "下京区",
                  "南区", "右京区", "伏見区", "山科区", "西京区", "福知山市", "舞鶴市",
                  "綾部市", "宇治市", "宮津市", "亀岡市", "城陽市", "向日市", "長岡京市",
                  "八幡市", "京田辺市", "京丹後市", "南丹市", "木津川市", "大阪市",
                  "都島区", "福島区", "此花区", "西区", "港区", "大正区", "天王寺区",
                  "浪速区", "西淀川区", "東淀川区", "東成区", "生野区", "旭区",
                  "城東区", "阿倍野区", "住吉区", "東住吉区", "西成区", "淀川区",
                  "鶴見区", "住之江区", "平野区", "北区", "中央区", "堺市", "堺区",
                  "中区", "東区", "西区", "南区", "北区", "美原区", "岸和田市",
                  "豊中市", "池田市", "吹田市", "泉大津市", "高槻市", "貝塚市",
                  "守口市", "枚方市", "茨木市", "八尾市", "泉佐野市", "富田林市",
                  "寝屋川市", "河内長野市", "松原市", "大東市", "和泉市", "箕面市",
                  "柏原市", "羽曳野市", "門真市", "摂津市", "高石市", "藤井寺市",
                  "東大阪市", "泉南市", "四條畷市", "交野市", "大阪狭山市", "阪南市",
                  "神戸市", "東灘区", "灘区", "兵庫区", "長田区", "須磨区", "垂水区",
                  "北区", "中央区", "西区", "姫路市", "尼崎市", "明石市", "西宮市",
                  "洲本市", "芦屋市", "伊丹市", "相生市", "豊岡市", "加古川市",
                  "赤穂市", "西脇市", "宝塚市", "三木市", "高砂市", "川西市", "小野市",
                  "三田市", "加西市", "篠山市", "養父市", "丹波市", "南あわじ市",
                  "朝来市", "淡路市", "宍粟市", "加東市", "たつの市", "奈良市",
                  "大和高田市", "大和郡山市", "天理市", "橿原市", "桜井市", "五條市",
                  "御所市", "生駒市", "香芝市", "葛城市", "宇陀市", "和歌山市",
                  "海南市", "橋本市", "有田市", "御坊市", "田辺市", "新宮市", "紀の川市",
                  "岩出市", "鳥取市", "米子市", "倉吉市", "境港市", "松江市", "浜田市",
                  "出雲市", "益田市", "大田市", "安来市", "江津市", "雲南市", "岡山市",
                  "北区", "中区", "東区", "南区", "倉敷市", "津山市", "玉野市",
                  "笠岡市", "井原市", "総社市", "高梁市", "新見市", "備前市", "瀬戸内市",
                  "赤磐市", "真庭市", "美作市", "浅口市", "広島市", "中区", "東区",
                  "南区", "西区", "安佐南区", "安佐北区", "安芸区", "佐伯区", "呉市",
                  "竹原市", "三原市", "尾道市", "福山市", "府中市", "三次市", "庄原市",
                  "大竹市", "東広島市", "廿日市市", "安芸高田市", "江田島市", "下関市",
                  "宇部市", "山口市", "萩市", "防府市", "下松市", "岩国市", "光市",
                  "長門市", "柳井市", "美祢市", "周南市", "山陽小野田市", "徳島市",
                  "鳴門市", "小松島市", "阿南市", "吉野川市", "阿波市", "美馬市",
                  "三好市", "高松市", "丸亀市", "坂出市", "善通寺市", "観音寺市",
                  "さぬき市", "東かがわ市", "三豊市", "松山市", "今治市", "宇和島市",
                  "八幡浜市", "新居浜市", "西条市", "大洲市", "伊予市", "四国中央市",
                  "西予市", "東温市", "高知市", "室戸市", "安芸市", "南国市", "土佐市",
                  "須崎市", "宿毛市", "土佐清水市", "四万十市", "香南市", "香美市",
                  "北九州市", "門司区", "若松区", "戸畑区", "小倉北区", "小倉南区",
                  "八幡東区", "八幡西区", "福岡市", "東区", "博多区", "中央区",
                  "南区", "西区", "城南区", "早良区", "大牟田市", "久留米市", "直方市",
                  "飯塚市", "田川市", "柳川市", "八女市", "筑後市", "大川市", "行橋市",
                  "豊前市", "中間市", "小郡市", "筑紫野市", "春日市", "大野城市",
                  "宗像市", "太宰府市", "古賀市", "福津市", "うきは市", "宮若市",
                  "嘉麻市", "朝倉市", "みやま市", "糸島市", "那珂川市", "佐賀市",
                  "唐津市", "鳥栖市", "多久市", "伊万里市", "武雄市", "鹿島市",
                  "小城市", "嬉野市", "神埼市", "長崎市", "佐世保市", "島原市",
                  "諫早市", "大村市", "平戸市", "松浦市", "対馬市", "壱岐市", "五島市",
                  "西海市", "雲仙市", "南島原市", "熊本市", "中央区", "東区", "西区",
                  "南区", "北区", "八代市", "人吉市", "荒尾市", "水俣市", "玉名市",
                  "山鹿市", "菊池市", "宇土市", "上天草市", "宇城市", "阿蘇市",
                  "天草市", "合志市", "大分市", "別府市", "中津市", "日田市", "佐伯市",
                  "臼杵市", "津久見市", "竹田市", "豊後高田市", "杵築市", "宇佐市",
                  "豊後大野市", "由布市", "国東市", "宮崎市", "都城市", "延岡市",
                  "日南市", "小林市", "日向市", "串間市", "西都市", "えびの市",
                  "鹿児島市", "鹿屋市", "枕崎市", "阿久根市", "出水市", "指宿市",
                  "西之表市", "垂水市", "薩摩川内市", "日置市", "曽於市", "霧島市",
                  "いちき串木野市", "南さつま市", "志布志市", "奄美市", "南九州市",
                  "伊佐市", "姶良市", "那覇市", "宜野湾市", "石垣市", "浦添市",
                  "名護市", "糸満市", "沖縄市", "豊見城市", "うるま市", "宮古島市",
                  "南城市")),
    row.names = c(NA, -1136L),
    class = c("tbl_df", "tbl","data.frame"))