## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", message = FALSE)

## ----eval = FALSE-------------------------------------------------------------
# install.packages("remotes")
# remotes::install_github("yhoriuchi/jpmap")

## -----------------------------------------------------------------------------
library(tidyverse)
library(jpmap)

## ----eval = FALSE-------------------------------------------------------------
# plot_jpmap("prefecture")
# plot_jpmap("municipality", include = "Okinawa")

## ----eval = FALSE-------------------------------------------------------------
# prefectures <- jp_map("prefecture")
# okinawa_municipalities <- jp_map("municipality", include = "Okinawa")

## -----------------------------------------------------------------------------
places <- tribble(
  ~place, ~lon, ~lat,
  "Tokyo", 139.767, 35.681,
  "Naha", 127.681, 26.212,
  "Ogasawara", 142.191, 27.094
)

places |>
  jpmap_transform(output_names = c("x", "y"))