Skip to content

Instantly share code, notes, and snippets.

Avatar
🍉
fine

Shinya Uryu uribo

🍉
fine
View GitHub Profile
@uribo
uribo / Transport_flowmap.R
Created Jul 17, 2020
Transport census flowmap
View Transport_flowmap.R
###################################
# 大都市交通センサス
# 第12回 首都圏 https://www.mlit.go.jp/sogoseisaku/transport/sosei_transport_tk_000007.html
# 線別駅間移動人員,
# 鉄道位置データ: 国土数値情報 鉄道時系列 https://nlftp.mlit.go.jp/ksj/gml/datalist/KsjTmplt-N05-v1_3.html
# 行政区画: 地球地図日本 https://www.gsi.go.jp/kankyochiri/globalmap.html
# 加工・編集者: 瓜生真也 (Shinya Uryu)
#
# mapboxよりアクセストークンを取得してください
###################################
@uribo
uribo / image_facet_mapping.R
Created Mar 5, 2020
imagerで異なる画像を読み込んでggplot2::facet_wrap()で表示する
View image_facet_mapping.R
library(imager)
library(ggplot2)
image_to_rgbdf <- function(file) {
imager::load.image(file) %>%
as.data.frame(wide = "c") %>%
dplyr::mutate(rgb_val = rgb(c.1, c.2, c.3))
}
df_plot <-
View dl_stat_data_mesharea.R
dl_stat_data_mesharea <- function(tbl_code, meshcode, exdir = ".", dest = TRUE) {
x <-
glue::glue("https://www.e-stat.go.jp/gis/statmap-search/data?statsId={tbl_code}&code={meshcode}&downloadType=2")
destfile <-
glue::glue(
"{exdir}/tbl{tbl_code}H{meshcode}.zip")
utils::download.file(url = x,
destfile = destfile)
if (dest == TRUE)
utils::unzip(
View read_ks_pop
read_ks_pop <- function(path, .tidy = TRUE) {
d <-
vroom::vroom(path,
locale = vroom::locale(encoding = "cp932"),
skip = 1,
col_types = paste0(c("cii"),
paste(rep("d", 42), collapse = ""), collapse = ""))
fix_names <-
stringi::stri_trans_nfkc(names(d)) %>%
stringr::str_trim() %>%
View fgdr_hex.R
library(fgdr)
library(purrr)
library(sf)
library(h3forr)
library(ggplot2)
sf_hex <-
geo_to_h3(c(36.0670602, 140.0781036), res = 7) %>%
h3_to_geo_boundary() %>%
geo_boundary_to_sf()
View bucky.R
library(rlang)
library(purrr, warn.conflicts = FALSE)
library(glue)
library(rAltmetric)
# library(ghql)
reference_style <- "oikos"
path_references_bib <- "references.bib"
qry <- ghql::Query$new()
@uribo
uribo / besttrack_mapping.R
Created Oct 9, 2019
気象庁 熱帯低気圧地区特別気象センター ベストトラックデータのマッピング (2010~2019年)
View besttrack_mapping.R
library(jmastats)
library(dplyr)
library(sf)
library(assertr)
df_bst_all <-
read_rsmc_besttrack(path) %>%
verify(dim(.) == c(65626, 22))
df_bst_all %>%
@uribo
uribo / besttrack_mapping.R
Created Oct 9, 2019
気象庁 熱帯低気圧地区特別気象センター ベストトラックデータのマッピング (2010~2019年)
View besttrack_mapping.R
library(jmastats)
library(dplyr)
library(sf)
library(assertr)
df_bst_all <-
read_rsmc_besttrack(path) %>%
verify(dim(.) == c(65626, 22))
df_bst_all %>%
@uribo
uribo / maff_disaster1964-2017.R
Last active Sep 25, 2019
農林水産省 過去の主な異常災害等と農林水産被害
View maff_disaster1964-2017.R
######################################
# 農林水産省 過去の主な異常災害等と農林水産被害
# http://www.maff.go.jp/j/saigai/arc/index-1.html
######################################
# 1/3 Setup -------------------------------------------------------------------
library(dplyr)
library(purrr)
library(stringr)
bind_line2df <- function(x, index) {
x[index] %>%
@uribo
uribo / 01-file_download.R
Last active Sep 22, 2019
令和元年台風第15号に係る鉄道運行状況(千葉県)
View 01-file_download.R
library(drake)
library(dplyr)
library(purrr)
library(assertr)
library(tabulizer)
matrix_to_tbl <- function(data) {
data %>%
as.data.frame(stringsAsFactors = FALSE) %>%
janitor::clean_names() %>%
You can’t perform that action at this time.