Assigning the numbers and summarising the number of counts in a sliding window in R

Question

I have a df that looks like this:

 df <- (c( "P", "S", "E", "G", "R", "Q", "P