Polygon and line overlap in `geom_jpsegment()`

[uribo]

パッケージで用意している jgd2011_bbox (ベースは地球地図日本) 以外のポリゴンデータを与えると geom_jpsegment() での補助線の位置がおかしなことになる。データに応じて相対的な位置で線が引かれるようにしたい。

library(kuniezu)
library(sf)
library(ggplot2)

ne_jpn <- 
  rnaturalearth::ne_states(country = "Japan", returnclass = "sf") %>% 
  tibble::new_tibble(nrow = nrow(.), class = "sf") %>% 
  st_transform(crs = 6668)

move_jpn_rs(ne_jpn) %>% 
  ggplot() +
  geom_sf() +
  geom_jpsegment()

^{Created on 2020-05-09 by the reprex package (v0.3.0)}