Shinya Uryu uribo
🍉
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| library(sf) | |
| d <- | |
| fs::dir_ls("~/Documents/resources/国土数値情報/N03/2024/", | |
| regexp = "(36|37|38|39).geojson$", | |
| recurse = TRUE) |> | |
| purrr::set_names(c(zipangu::jpnprefs |> | |
| filter(jis_code %in% as.character(c(36, 37, 38, 39))) |> | |
| pull(prefecture_kanji))) |> |
uribo
/ endpoint.json
Last active
May 1, 2024 08:42
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "schemaVersion": 1, | |
| "label": "徳島大学附属図書館", | |
| "message": "蔵書あり", | |
| "color": "green" | |
| } |
uribo
/ isbn978-4-297-10843-4.json
Last active
April 26, 2024 17:33
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| [{"lib":"Univ_Tokushima","reserveurl":"","libkey":"蔵書なし"},{"lib":"Tokushima_Tokushima","reserveurl":"https://opac.lib.tokushima-u.ac.jp/opac/volume/1382750","libkey":"蔵書あり"},{"lib":"Tokushima_Pref","reserveurl":"","libkey":"蔵書なし"}] |
uribo
/ scrapbox_api.R
Created
February 15, 2024 05:02
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(httr2) | |
| library(rvest) | |
| # ページリスト ------------------------------------------------------------------ | |
| req <- | |
| request("https://scrapbox.io/") |> | |
| req_url_path_append("api/pages/") |> | |
| req_url_path_append("mandaRa") | |
| x <- | |
| req |> |
uribo
/ r_intro.ipynb
Created
November 22, 2023 00:43
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ############################## | |
| # 作物統計調査のデータをダウンロードして綺麗な形でRに読み込む | |
| # 表分類: 品目別結果樹面積、収穫量及び出荷量累年統計（昭和48年～） | |
| ############################## | |
| # 1. 対象のデータを一覧にする --------------------------------------------------------- | |
| base_url <- "https://www.e-stat.go.jp" | |
| df_item <- | |
| seq.int(2) |> | |
| purrr::map( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| https://mybinder.org/v2/gh/uribo/binder221202/main?urlpath=git-pull?repo=https://github.com/uribo/cue2022aw_r104 |
uribo
/ zip_to_administration.R
Last active
September 28, 2022 04:32
郵便番号から該当する都道府県・市区町村・町域名、jis codeを検索
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| read_zipcode_oogaki <- | |
| memoise::memoise( | |
| function(.path) { | |
| dplyr::select(zipangu::read_zipcode(.path, | |
| type = "oogaki"), | |
| jis_code, zip_code, prefecture, city, street) | |
| } | |
| ) | |
| zip_to_administration <- function(x, value = "jis_code", .path = NULL) { |
uribo
/ apple_book_marker.R
Created
July 27, 2022 03:36
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| apple_book_name_fix <- function(data) { | |
| purrr::set_names(data, | |
| stringr::str_to_lower( | |
| stringr::str_remove(names(data), "^Z") | |
| )) | |
| } | |
| apple_book_markers <- function() { | |
| con <- DBI::dbConnect(RSQLite::SQLite(), | |
| "~/Library/Containers/com.apple.iBooksX/Data/Documents/AEAnnotation/AEAnnotation_v10312011_1727_local.sqlite", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| library(jmastats) | |
| library(ggplot2) | |
| library(ggforce) | |
| # 対象地点のデータを取得 ------------------------------------------------------------- | |
| # 東京 | |
| df_tk <- | |
| read_tide_level(.year = 2020, .month = 8, .stn = "TK") |
NewerOlder