Extracting the First Three Characters from a DataFrame Column in R