jpmeshライブラリを使用して幾つかのメッシュを取り出したのですが、一部に10mほどメッシュの重なりが出てしまいました。一旦st_write_dbで格納してQGIS側でも確認したのですが、同じ状況でした。ご指摘いただければと思います。
お忙しいところ大変恐縮ですが、どうぞよろしくお願い申し上げます。

library(tidyverse)
library(sf)
library(jpmesh)
library(mapview)

mesh_list<-data.frame(x=c(533945191,533945192,533945193,533945194,533945291,533945292,533945293,533945294,533946101,533946102,533946103,533946104,533946201,533946202,533946203,533946204))

do.call(rbind,pmap(mesh_list,~export_mesh(meshcode = .x) %>% st_sf() %>% mutate(ID=.x))) %>% 
 st_set_crs(4326) %>% 
 mapview(z="ID")