How to Apply Rollmean Function with Custom Fill Value in R while Preserving Single Observation Values