AI grid cells spanning multiple columns/rows

[sean-rohan-NOAA]

Issue

In the AI, two ID cell grids (98-19 and 41-48) span across multiple grid cells.

library(akgfmaps)

ai_grid_3338 <- akgfmaps::get_base_layers(select.region = "ai", set.crs = "EPSG:3338")$survey.grid

ai_grid_union <- dplyr::select(ai_grid_3338, ID) |>
  dplyr::group_by(ID) |>
  summarise()

ai_grid_union$area <- sf::st_area(ai_grid_union)

ggplot() +
  geom_sf(data = dplyr::arrange(ai_grid_union, -area)[1,],
          linewidth = 3) +
  geom_sf_text(data = dplyr::arrange(ai_grid_union, -area)[1,] |>
            sf::st_centroid(),
            mapping = aes(label = ID))

ggplot() +
  geom_sf(data = dplyr::arrange(ai_grid_union, -area)[2,],
          linewidth = 3) +
  geom_sf_text(data = dplyr::arrange(ai_grid_union, -area)[2,] |>
                 sf::st_centroid(),
               mapping = aes(label = ID))