Como has indicado, podemos acceder individualmente a cada celda para hacer algo como esto:

    (df$A[2] - df$A[1]) / df$A[1]

Pero el inconveniente es que no se trata de una mecánica vectorizada, por lo que deberíamos iterar sobre cada fila, lo cual es posible si hacemos esto:

    unlist(lapply(1:(nrow(df)-1), function(x) (df$A[x+1] - df$A[x]) / df$A[x]))
    [1] 1.0000000 0.5000000 0.3333333 0.2500000 0.2000000

Pero tenemos el problema que el vector final será de `n-1`, con lo cual habría que hacerlo homogeno con el original. Lo que suele ser más cómodo en estos casos, es generar un vector desplazado con la misma longitud del original, y entonces sí, podremos aplicar fácilmente la aritmética vectorial estándar de R. Hay muchas formas de desplazar un vector, en mi caso tengo está función:

    shift <- function(x,k=1, na.value=NA) {
      stopifnot(abs(k) <= length(x))
      if (k==0) return(x)
      if (k>0) {
        c(rep(na.value,k),head(x,length(x)-k))
      } else {
        c(tail(x,length(x)+k), rep(na.value,abs(k)))
      }
    }

Que permite, generar versiones desplazadas de cualquier vector, por ejemplo:

    cbind(df$A,
         shift(df$A, -1),
         shift(df$A, -1, 0)
    )

         [,1] [,2] [,3]
    [1,]    1    2    2
    [2,]    2    3    3
    [3,]    3    4    4
    [4,]    4    5    5
    [5,]    5    6    6
    [6,]    6   NA    0

Ahora, debería quedar mas clara la idea. con `shift(df$A, -1)` generamos un vector desplazado "hacia arriba" 1 posición, y agregamos `NA` a las posiciones vacías, con `shift(df$A, -1, 0)` hacemos lo mismo pero completamos con 0. Este último es el comportamiento del Excel (algo discutible). Y ahora sí:

    df$NuevoA <- (shift(df$A,-1,0)-df$A)/df$A
    df
    
      A     NuevoA
    1 1  1.0000000
    2 2  0.5000000
    3 3  0.3333333
    4 4  0.2500000
    5 5  0.2000000
    6 6 -1.0000000

Por último, si utilizaras `tidyverse/dplyr` tienes la posibilidad de usar la función `lead()/lag()` (ojo, no es `lag()` de R base) de esta forma:

    df %>% 
      mutate(NuevoA= (lead(A, default = 0)-A)/A)

  [1]: https://i.sstatic.net/MzLgG.png