MisVecesRep <- with(rle(df), {
  #Lo transformamos en data.frame
  Midf <- data.frame(values,lengths)
  #Sacamos los valores que se repiten una sola vez
  Midf <-Midf[Midf$lengths>1 ,]
  #Calculamos cuantas veces se repiten en total
  VecesRep<-margin.table( table(Midf),1)
  #Calculamos cual es el maximo de veces consecutivas que se repiten
  VecesCons<-tapply(Midf$lengths,Midf$values,max)

  data.frame(VecesRep,
             "RepMax" = VecesCons)
  })

MisVecesRep
  values Freq RepMax
0      0    2      6
1      1    1      2
4      4    1      2