class: center, middle, inverse, title-slide # jpmesh ## Utilities for Japanese Mesh Code ### Shinya Uryu ### 2018/3/8 --- background-image: url('https://github.com/uribo/jpmesh/blob/master/man/figures/logo.png?raw=true') background-position: 30% 45% class: inverse, center, middle # jpmesh --- # Overview The **jpmesh** is a package that makes it easy to use "regional mesh (i.e. mesh code _JIS X 0410_ )" used in Japan from R. Regional mesh is a code given when subdividing Japanese landscape into rectangular subregions by latitude and longitude. Depending on the accuracy of the code, different regional mesh length. By using the same mesh in statistical survey etc., it will become possible to handle the survey results of a large area in the area mesh unit. -- In jpmesh, mesh codes and latitude and longitude coordinates are compatible with mesh codes from the first region mesh, which is the standard region mesh, to the quarter regional mesh of the divided region mesh (from 80 km to 125 m). Features include "conversion from latitude and longitude to regional mesh", "acquisition of latitude and longitude from regional mesh", "mapping on prefecture unit and leaflet". --- class: inverse, center, middle # Usage --- # Install Available CRAN (`version 1.1.0`), and olso GitHub develop versions. ```r # CRAN install.packages("jpmesh") ``` -- ```r # the development version from GitHub: install.packages("remotes") remotes::install_github("uribo/jpmesh") ``` -- ```r library(jpmesh) library(sf) library(leaflet) ``` --- # Convert mesh code to coordinate and vice versa Return the `latitude` and `longitude` for specifying the mesh range from the mesh code. ```r mesh_to_coords(5133) # 80km ``` ``` ## # A tibble: 1 x 4 ## lng_center lat_center lng_error lat_error ## <dbl> <dbl> <dbl> <dbl> ## 1 134. 34.3 0.500 0.333 ``` ```r mesh_to_coords(513377) # 10km # ... mesh_to_coords(51337783123) # 125m ``` --- Find the mesh code within the range from `latitude` and `longitude`. ```r coords_to_mesh(133, 34) # default as 1km meshcode ``` ``` ## [1] "51330000" ``` ```r coords_to_mesh(133, 34, mesh_size = "80km") ``` ``` ## [1] "5133" ``` ```r coords_to_mesh(133, 34, mesh_size = "125m") ``` ``` ## [1] "51330000111" ``` --- # Detect fine and neighborhood mesh codes ```r mesh_80km <- coords_to_mesh(133, 34, "80km") # Convert to sfc_POLYGON mesh_polygon <- mesh_80km %>% export_mesh() mesh_polygon ``` ``` ## Geometry set for 1 feature ## geometry type: POLYGON ## dimension: XY ## bbox: xmin: 133 ymin: 34 xmax: 134 ymax: 34.66667 ## epsg (SRID): 4326 ## proj4string: +proj=longlat +datum=WGS84 +no_defs ``` ``` ## POLYGON ((133 34, 134 34, 134 34.66667, 133 34.... ``` --- .pull-left[ ```r mesh_80km <- coords_to_mesh(133, 34, "80km") # Convert to sfc_POLYGON mesh_polygon <- mesh_80km %>% export_mesh() ``` ] .pull-right[ ```r mesh_polygon %>% st_geometry() %>% plot() ``` <!-- --> ``` ] --- .pull-left[ ```r # Returns a finer mesh of the area of the mesh codes # Such as, 80km to 10km mesh codes. meshes_10km <- mesh_80km %>% fine_separate() meshes_10km ``` ``` ## [1] "513300" "513301" "513302" "513303" "513304" "513305" "513306" ## [8] "513307" "513310" "513311" "513312" "513313" "513314" "513315" ## [15] "513316" "513317" "513320" "513321" "513322" "513323" "513324" ## [22] "513325" "513326" "513327" "513330" "513331" "513332" "513333" ## [29] "513334" "513335" "513336" "513337" "513340" "513341" "513342" ## [36] "513343" "513344" "513345" "513346" "513347" "513350" "513351" ## [43] "513352" "513353" "513354" "513355" "513356" "513357" "513360" ## [50] "513361" "513362" "513363" "513364" "513365" "513366" "513367" ## [57] "513370" "513371" "513372" "513373" "513374" "513375" "513376" ## [64] "513377" ``` ] .pull-right[ ```r meshes_10km %>% export_meshes() %>% plot() ``` <!-- --> ``` ] --- ```r # the value of the adjacent mesh codes coords_to_mesh(133, 34, "80km") %>% neighbor_mesh() ``` ``` ## [1] "5032" "5033" "5034" "5132" "5133" "5134" "5232" "5233" "5234" ``` ```r coords_to_mesh(133, 34, "500m") %>% neighbor_mesh() ``` ``` ## [1] "503277994" "503370903" "503370904" "513207092" "513207094" "513300003" ## [7] "513300004" "513300001" ``` --- ```r mesh_1km_neighbors <- coords_to_mesh(133, 34, "1km") %>% neighbor_mesh() mesh_1km_neighbors %>% export_meshes() %>% st_geometry() %>% plot() ``` <div class="figure" style="text-align: right"> <img src="04_xaringan_files/figure-html/unnamed-chunk-13-1.png" alt="1km neighborhood meshes" /> <p class="caption">1km neighborhood meshes</p> </div> --- class: inverse, center, middle # Plots and Visualize --- # ggplot2 ```r remotes::install_github("hadley/ggplot2") library(ggplot2) ggplot() + geom_sf(data = mesh_1km_neighbors %>% export_meshes(), aes(fill = meshcode)) + theme_bw() ``` --- # ggplot2 <!-- --> --- # Administration mesh ```r set.seed(71) # Select prefecture or city code administration_mesh(code = 33, type = "prefecture") %>% sample(5) ``` <table> <thead> <tr> <th style="text-align:right;"> lng_center </th> <th style="text-align:right;"> lat_center </th> <th style="text-align:left;"> meshcode </th> <th style="text-align:right;"> lat_error </th> <th style="text-align:left;"> geometry </th> </tr> </thead> <tbody> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513376 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513377 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523305 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523306 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523307 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523315 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523316 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523317 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523326 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523327 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523336 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523337 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523400 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.54167 </td> <td style="text-align:left;"> 513460 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.5, 34.5, 34.58333, 34.58333, 34.5)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513470 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523410 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.54167 </td> <td style="text-align:left;"> 513366 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.5, 34.5, 34.58333, 34.58333, 34.5)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.54167 </td> <td style="text-align:left;"> 513367 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.5, 34.5, 34.58333, 34.58333, 34.5)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.37500 </td> <td style="text-align:left;"> 513346 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.33333, 34.33333, 34.41667, 34.41667, 34.33333)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.45833 </td> <td style="text-align:left;"> 513354 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.41667, 34.41667, 34.5, 34.5, 34.41667)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.45833 </td> <td style="text-align:left;"> 513355 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.41667, 34.41667, 34.5, 34.5, 34.41667)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 34.45833 </td> <td style="text-align:left;"> 513356 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 34.41667, 34.41667, 34.5, 34.5, 34.41667)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 34.45833 </td> <td style="text-align:left;"> 513357 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 34.41667, 34.41667, 34.5, 34.5, 34.41667)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.54167 </td> <td style="text-align:left;"> 513364 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.5, 34.5, 34.58333, 34.58333, 34.5)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.54167 </td> <td style="text-align:left;"> 513365 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.5, 34.5, 34.58333, 34.58333, 34.5)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513375 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523346 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523347 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523356 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523357 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523367 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523377 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523440 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523450 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523451 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523460 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523461 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523470 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523471 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.45833 </td> <td style="text-align:left;"> 513450 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.41667, 34.41667, 34.5, 34.5, 34.41667)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.29167 </td> <td style="text-align:left;"> 513334 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.25, 34.25, 34.33333, 34.33333, 34.25)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.37500 </td> <td style="text-align:left;"> 513343 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.33333, 34.33333, 34.41667, 34.41667, 34.33333)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.37500 </td> <td style="text-align:left;"> 513344 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.33333, 34.33333, 34.41667, 34.41667, 34.33333)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.45833 </td> <td style="text-align:left;"> 513353 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.41667, 34.41667, 34.5, 34.5, 34.41667)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.54167 </td> <td style="text-align:left;"> 513363 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.5, 34.5, 34.58333, 34.58333, 34.5)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513374 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513373 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 133.3125 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523302 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.25, 133.375, 133.375, 133.25, 133.25, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523303 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523304 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523314 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.3125 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523312 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.25, 133.375, 133.375, 133.25, 133.25, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523313 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 133.3125 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523322 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.25, 133.375, 133.375, 133.25, 133.25, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523323 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523324 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523325 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523334 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523335 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 133.3125 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523332 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.25, 133.375, 133.375, 133.25, 133.25, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523333 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 133.3125 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523342 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.25, 133.375, 133.375, 133.25, 133.25, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523343 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523344 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 133.3125 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523352 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.25, 133.375, 133.375, 133.25, 133.25, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523353 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523354 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 133.4375 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523363 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.375, 133.5, 133.5, 133.375, 133.375, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523364 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523401 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 34.70833 </td> <td style="text-align:left;"> 523402 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 34.66667, 34.66667, 34.75, 34.75, 34.66667)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523411 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 34.79167 </td> <td style="text-align:left;"> 523412 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 34.75, 34.75, 34.83333, 34.83333, 34.75)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523421 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523422 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523431 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523432 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 34.62500 </td> <td style="text-align:left;"> 513471 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 34.58333, 34.58333, 34.66667, 34.66667, 34.58333)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.87500 </td> <td style="text-align:left;"> 523420 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.83333, 34.83333, 34.91667, 34.91667, 34.83333)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 34.95833 </td> <td style="text-align:left;"> 523430 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 34.91667, 34.91667, 35, 35, 34.91667)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523345 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523355 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523365 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523366 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523374 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523375 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> <tr> <td style="text-align:right;"> 133.8125 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523376 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.75, 133.875, 133.875, 133.75, 133.75, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> <tr> <td style="text-align:right;"> 133.5625 </td> <td style="text-align:right;"> 35.37500 </td> <td style="text-align:left;"> 533304 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.5, 133.625, 133.625, 133.5, 133.5, 35.33333, 35.33333, 35.41667, 35.41667, 35.33333)) </td> </tr> <tr> <td style="text-align:right;"> 133.6875 </td> <td style="text-align:right;"> 35.37500 </td> <td style="text-align:left;"> 533305 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.625, 133.75, 133.75, 133.625, 133.625, 35.33333, 35.33333, 35.41667, 35.41667, 35.33333)) </td> </tr> <tr> <td style="text-align:right;"> 134.1875 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523441 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.125, 134.25, 134.25, 134.125, 134.125, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 35.04167 </td> <td style="text-align:left;"> 523442 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 35, 35, 35.08333, 35.08333, 35)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523452 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 134.4375 </td> <td style="text-align:right;"> 35.12500 </td> <td style="text-align:left;"> 523453 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.375, 134.5, 134.5, 134.375, 134.375, 35.08333, 35.08333, 35.16667, 35.16667, 35.08333)) </td> </tr> <tr> <td style="text-align:right;"> 134.3125 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523462 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.25, 134.375, 134.375, 134.25, 134.25, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 134.4375 </td> <td style="text-align:right;"> 35.20833 </td> <td style="text-align:left;"> 523463 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.375, 134.5, 134.5, 134.375, 134.375, 35.16667, 35.16667, 35.25, 35.25, 35.16667)) </td> </tr> <tr> <td style="text-align:right;"> 133.9375 </td> <td style="text-align:right;"> 35.37500 </td> <td style="text-align:left;"> 533307 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(133.875, 134, 134, 133.875, 133.875, 35.33333, 35.33333, 35.41667, 35.41667, 35.33333)) </td> </tr> <tr> <td style="text-align:right;"> 134.0625 </td> <td style="text-align:right;"> 35.37500 </td> <td style="text-align:left;"> 533400 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134, 134.125, 134.125, 134, 134, 35.33333, 35.33333, 35.41667, 35.41667, 35.33333)) </td> </tr> <tr> <td style="text-align:right;"> 134.4375 </td> <td style="text-align:right;"> 35.29167 </td> <td style="text-align:left;"> 523473 </td> <td style="text-align:right;"> 0.0416667 </td> <td style="text-align:left;"> list(c(134.375, 134.5, 134.5, 134.375, 134.375, 35.25, 35.25, 35.33333, 35.33333, 35.25)) </td> </tr> </tbody> </table> --- # Mapping on Leaflet ```r leaflet() %>% addTiles() %>% addProviderTiles("OpenStreetMap.BlackAndWhite") %>% addPolygons(data = administration_mesh(code = 33101, type = "city")) ```