Substituting Labels with First Characters Using Regular Expressions in R

R: Avoiding Looping Over Sequences to Prevent Rounding Errors