color <- c("R","B","B","R","R") weight <- c(51,55,72,57,64) dfrm <- data.frame(COL=color, WEI=weight) dfrm %>% mutate(WEILag = lag(WEI)) メモ：lagを使うと、データは下に1段下がる（1行下がる）。 差分を計算するとき、diff()は使えず、G_delta = …