そちらのブログを書いている者です。読んでいただいてありがとうございます。 > 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