Skip to content

Instantly share code, notes, and snippets.

View igproj-fusion's full-sized avatar

igproj-fusion

View GitHub Profile
###############################################################
# 必要なパッケージの読み込み
###############################################################
pacman::p_load(
sf,
rnaturalearth,
tidyverse,
ncdf4,
rvest,
pacman::p_load(
rvest,
ncdf4,
sf,
rnaturalearth,
tidyverse,
reshape2,
scales)
pacman::p_load(
rvest,
ncdf4,
sf,
rnaturalearth,
tidyverse,
reshape2,
scales)
pacman::p_load(
tidyverse,
rvest,
xlsx,
sf)
YEAR = 2009
if(YEAR < 2009 | YEAR > 2023){
pacman::p_load(
ncdf4,
sf,
rnaturalearth,
tidyverse,
reshape2,
scales)
world_map <- ne_countries(scale = "large",
returnclass = "sf")
#########################################################
#########################################################
#
# 気象庁>各種データ・資料 > 過去の気象データ検索
# https://www.data.jma.go.jp/obd/stats/etrn/index.php
#
#########################################################
pacman::p_load(
conflicted,
#############################################################################
#
# 人口動態統計特殊報告
#
# 平成30年~令和4年 人口動態保健所・市区町村別統計
# https://www.mhlw.go.jp/toukei/saikin/hw/jinkou/other/hoken24/index.html
#
#############################################################################
#############################################################
#
# makeDf_araoundKatuura.R
#
# UNDER CONSTRUCTION !
#
#############################################################
pacman::p_load(
tidyverse,
pacman::p_load(
sf,
estatapi,
tidyverse)
appId <- "*************************************"
res <- estat_getStatsData(
pacman::p_load(
openxlsx,
tidyverse,
sf,
rmapshaper)
URL <- "https://www.soumu.go.jp/main_content/000892857.xlsx"
RATIO <- read.xlsx(URL, colNames = FALSE) |>