Tengo el siguiente dataframe:

    df1 <- data.frame(RAM = c("1", "2", "3", "4", "5", "6","7","8","9","10","11","12","13"),
                  freq = c("1", "4", "16", "3", "5", "3","1","8","5","21","8","4","35"),
                  ID = c("0","0", "3","0","0","0","0","0","0","10","0","0","13")

Como pueden ver, `ID` es `= 0` cuando `freq <10`, de lo contrario `ID=RAM`:

Y quiero tener esto:

    df1 <- data.frame(RAM = c("1", "2", "3", "4", "5", "6","7","8","9","10","11","12","13"),
                  freq = c("1", "4", "16", "3", "5", "3","1","8","5","21","8","4","35"),
                  ID = c("0","0", "3","0","0","0","0","0","0","10","0","0","13"),
                  RAM2 = c("3","3","3","10","10","10","10","10","10","10","13","13","13")

Para esto, he intentado hacerlo usando:

    df2 <- df1 %>% 
      mutate(RAM2=ifelse(ID!=0, ID, c(ID[(ID!=0)])))

Pero lo que obtengo apenas se parece a lo que necesito:

    df2 <- data.frame(RAM = c("1", "2", "3", "4", "5", "6","7","8","9","10","11","12","13"),
                  freq = c("1", "4", "16", "3", "5", "3","1","8","5","21","8","4","35"),
                  ID = c("0","0", "3","0","0","0","0","0","0","10","0","0","13"),
                  RAM2 = c("3","10","3","3","10","13","3","10","13","10","10","13","13")

Por lo que veo, `c(ID[(ID!=0)]` acumula todos los valores que no son `0` (`3`, `10` y `13` en este caso) y luego los va poniendo en ese orden en aquellos casos donde `ID =0`, sin cumplir la condición que quisiera, básicamente porque no sé como programarla. Debería decirle de algún modo que ponga `3` en `RAM2` hasta que se encuentre con `3`, `10` hasta que se encuentre con `10` y `13` hasta que encuentre `13`. ¿Cómo lo hago?