分割メッシュコードの番号の割り振りが間違っている

[uribo]

library(jpmesh)
library(tidyverse)
library(leaflet)
library(sf)

# Create 500m mesh data (polygon)
paste0(36233799, 1:4) %>% 
  as_data_frame() %>% 
  set_names(c("meshcode")) %>% 
  mutate(out = pmap(., mesh_to_coords)) %>% 
  unnest() %>% 
  mutate(out = st_as_sfc(pmap_chr(., jpmesh:::mesh_to_poly))) %>% 
  st_sf() -> d

# Check
leaflet(data = d) %>% addTiles() %>% 
  addPolygons() %>% 
  addMarkers(data = d %>% st_centroid(),
             label = ~meshcode,
             labelOptions = labelOptions(noHide = TRUE))

分割メッシュコードの割り当ては南西（1 左下）、南東（2 右下）、北西（3 左上）、北東（4 右上）の順でなければいけない。

[uribo]

修正した