geof_sf_test.R

library(sf)
library(jpndistrict)
library(stringr)
library(ggplot2)

# 札幌市
sapporo <- jpn_cities(jis_code = sprintf("%05d", 1101:1110))
ggplot(sapporo) +
  geom_sf(aes(fill = city_code)) +
  scale_fill_discrete(name = "区",
                      labels = str_remove(sapporo$city, "札幌市 ")) +
  theme_bw(base_family = "IPAexGothic")

# 函館市
hakodate <- jpn_cities(jis_code = "01202")
ggplot(hakodate) +
  geom_sf(aes(fill = city)) +
  theme_bw(base_family = "IPAexGothic")

# 大垣市
oogaki <- jpn_cities(jis_code = "21202")
ggplot(oogaki) +
  geom_sf(fill = "green")