How to replace values in a specific part of character with a range of numbers

Question

I can\'t seem to figure out how to replace a specific value of the characters in my vector. My vector is:

str(cryostick_1)
 chr [1:21] "4490015" &qu