scat_table1 %>% gt(rowname_col = "Species") %>% cols_label(count ~ "Count") %>% tab_header(title = "California poopies", subtitle = "Morphometr…
