st_combine по переменным r

states %>%
  group_by(group_var) %>% 
  summarize(geometry = st_union(geometry))
marcofaga