First, I am looking at this article (

If we don't want tab_row_group, just do a group_by and convert to gt

test %>% 
   select(-order2) %>%
   group_by(area2) %>%
   gt()

-output