clanfear

library(tidyverse)
library(sf)

st_queen <- function(a, b = a){
  st_relate(a, b, pattern = "F***T****")
}

new_data <- original_data %>%
  mutate(neighbors = st_queen(.)) %>% 
  st_drop_geometry() %>%