library(dplyr)
data('checkerboard')
data('checkerboard_adj')
checkerboard <- checkerboard %>% mutate(discont = as.integer(j == 5 | j == 6))
p <- geo_plot_group(checkerboard, checkerboard_adj, checkerboard$discont)
p[[1]]
p[[2]]
Run the code above in your browser using DataLab