Utilities for Japanese Mesh Code

Helpful functions for using mesh code (80km to 250m) data in Japan. Visualize mesh code using 'ggplot2' and 'leaflet', etc.


English version of README is here

**{jpmesh}**パッケージは、日本国内で利用される「地域メッシュ(メッシュコード)」をRから容易に利用可能にするパッケージです。地域メッシュとは、日本国土を緯度・経度により方形の小地域区画に細分した際に与えられるコードです。地域メッシュはコードの精度に応じて範囲とする区画の面積が異なっており、統計調査などでは同一メッシュを採用することで広い面積の調査結果を地域メッシュ単位で取り扱えるようになります。

**{jpmesh}**は現在、標準地域メッシュである第1次メッシュから分割地域メッシュの4分の1地域メッシュすなわち80kmから250mまでのメッシュコードに対応し、メッシュコードと緯度経度座標との互換を行います。主な機能として、「緯度経度からの地域メッシュへの変換」、「地域メッシュからの緯度経度の取得」、「都道府県単位やleaflet上へのマッピング」があります。

パッケージはGitHub経由でインストール可能です。

install.packages("devtools")
devtools::install_github("uribo/jpmesh")
library(jpmesh)
library(dplyr, warn.conflicts = FALSE)
library(ggplot2)

メッシュコードからメッシュ範囲特定のための緯度経度の取得

meshcode_to_latlon(5133)
#>   lat_center long_center lat_error long_error
#> 1   34.33333       133.5 0.3333333        0.5
meshcode_to_latlon(513377)
#>   lat_center long_center  lat_error long_error
#> 1     34.625    133.9375 0.04166667     0.0625
meshcode_to_latlon(51337783)
#>   lat_center long_center   lat_error long_error
#> 1   34.65417    133.9187 0.004166667    0.00625

緯度経度から、範囲内のメッシュコードを取得

latlong_to_meshcode(34, 133, order = 1)
#> [1] 5133
latlong_to_meshcode(34.583333, 133.875, order = 2)
#> [1] 513367
latlong_to_meshcode(34.65, 133.9125, order = 3)
#> [1] 51337782
detect_mesh(52350422, lat = 34.684176, long = 135.526130)
#> [1] 523504221
detect_mesh(523504221, lat = 34.684028, long = 135.529506)
#> [1] 5235042212

1次メッシュを基礎とした単純化した日本地図の描画

data("jpnrect")
 
ggplot() +
  geom_map(data = jpnrect,
           map  = jpnrect,
           aes(x = long, y = lat, map_id = id),
           fill = "#FFFFFF", color = "black",
           size = 1) +
  coord_map() +
  ggthemes::theme_map() +
  geom_text(aes(x = longitude, y = latitude, label = abb_name), data = jpnrect, size = 3)

都道府県別のメッシュコードデータ

pref_mesh(33) %>% head() %>% knitr::kable()
jiscodelonglatordergroupidcity_codecity_name
33133.525034.30000151333452.15133345233205笠岡市
33133.537534.30000251333452.15133345233205笠岡市
33133.537534.29167351333452.15133345233205笠岡市
33133.525034.29167451333452.15133345233205笠岡市
33133.525034.30000551333452.15133345233205笠岡市
33133.525034.30833151333462.15133346233205笠岡市

可視化の一例

# For leaflet
# pref_mesh(33) %>% mesh_rectangle(mesh_code = "id", view = TRUE)
df.map <- pref_mesh(33) %>% 
  mutate(mesh_area = purrr::map(id, meshcode_to_latlon)) %>% 
  tidyr::unnest() %>% 
  mutate(lng1 = long_center - long_error,
         lat1 = lat_center - lat_error,
         lng2 = long_center + long_error,
         lat2 = lat_center + lat_error)
 
ggplot() + 
  geom_map(data = df.map, 
           map = df.map,
           aes(x = long, y = lat, map_id = id), 
           fill = "white", color = "black") + 
  coord_map(projection = "mercator")

News

jpmesh 0.3.0 (2016-11-12)

  • Mesh viewer as shiny gadgets (mesh_viewer()) #4
  • Export mesh rectangle as geojson (export_mesh()) #3

jpmesh 0.2.0

  • Added simple Japan grid datasets.
  • Making website by pkgdown.

jpmesh 0.1.0

  • Added a NEWS.md file to track changes to the package.
  • Added base functions.

Reference manual

It appears you don't have a PDF plugin for this browser. You can click here to download the reference manual.

install.packages("jpmesh")

0.4.0 by Shinya Uryu, 2 months ago


https://github.com/uribo/jpmesh


Report a bug at https://github.com/uribo/jpmesh/issues


Browse source code at https://github.com/cran/jpmesh


Authors: Shinya Uryu [aut, cre]


Documentation:   PDF Manual  


MIT + file LICENSE license


Imports dplyr, leaflet, magrittr, miniUI, purrr, purrrlyr, readr, sf, shiny, tibble, tidyr

Suggests devtools, testthat, stringr


Suggested by jpndistrict.


See at CRAN