そちらのブログを書いている者です。読んでいただいてありがとうございます。

> 1. 新しい列を作りたくないのですが、その場合

はい、それで大丈夫です。

> 2.先頭行のNAをその次の行の値で埋めたいのですが
> 列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。

ちょっとデータの形がよくわからないのですが、こういう感じでしょうか?
質問文のコードでどういうエラーが出たのかも書いていただけるとありがたいです。

<!-- language-all: lang-r -->
<br/>

    library(dplyr, warn.conflicts = FALSE)

    df <- data.frame(
      col1 = 1:10,
      col2 = 1:10,
      col3 = 1:10,
      col4 = 1:10,
      col5 = 1:10
    )

    df_lag <- df %>%
      mutate_all(funs(. - lag(.)))
    df_lag
    #>    col1 col2 col3 col4 col5
    #> 1    NA   NA   NA   NA   NA
    #> 2     1    1    1    1    1
    #> 3     1    1    1    1    1
    #> 4     1    1    1    1    1
    #> 5     1    1    1    1    1
    #> 6     1    1    1    1    1
    #> 7     1    1    1    1    1
    #> 8     1    1    1    1    1
    #> 9     1    1    1    1    1
    #> 10    1    1    1    1    1

    df_lag[1,] <- df_lag[2,]
    df_lag
    #>    col1 col2 col3 col4 col5
    #> 1     1    1    1    1    1
    #> 2     1    1    1    1    1
    #> 3     1    1    1    1    1
    #> 4     1    1    1    1    1
    #> 5     1    1    1    1    1
    #> 6     1    1    1    1    1
    #> 7     1    1    1    1    1
    #> 8     1    1    1    1    1
    #> 9     1    1    1    1    1
    #> 10    1    1    1    1    1