Function-ish idea

```r
species <- treeio::read.beast("data/phylogenies/Cyperaceae-all-taxa-6calib-max-clad-AUG12.tre")@phylo$tip.label

# Schoenus       <sp.> -> S.  <sp.>
# Schoenoplectus <sp.> -> So. <sp.>
# Tetraria       <sp.> -> T.  <sp.>
# Tetrariopsis   <sp.> -> To. <sp.>
species %>%
  stringr::<...>(...) %>%
  ...
```