ผลลัพธ์ของ Group_by

# Save output from summarise() for diameter by sex
___ <- abaloneKeep %>% 
  group_by(___) %>%
  select(___, ___) %>%
  summarise(___(everything(), list(mean = ___,
                                      ___ = ~sd(.x),
                                      median = ~median(.x),
                                      min = ___,
                                      ___ = ___)))

# Get structure of absexdiam
___

# Use filter() function to extract row for sex == "I"
___ %>% filter(___)