Not sure where this is coming from: Error in names(x) <- value : 'names' attribute [5] must be the same length as the vector [4]

Question

I have read through previous questions on this topic, but non the less I am not sure what to change on this code:

The error is happening on line 14, here: