グループごとのdplyr突然変異の相違

Question

グループごとに7日間の差異を作成しようとしています。したがって、私は以下のコードを複製し、7日間の遅れで同様の結果を得ることを望んでいます。

library(dplyr) 

dat %>% mutate(dx=c(NA, diff(x)), dy=c(NA, diff(y))) 

    x y dx dy 
1 5 3 NA NA 
2 8 9 3 6 
3 3 1 -5 -8 
4 1 5 -2 4 

しかし、私はエラーメッセージを取得しています：

Error: incompatible size (900), expecting 905 (the group size) or 1

は、このエラーを修正するために迅速かつ簡単な方法があります。私はそれが突然変異と関係しているかもしれないと確信しています

Answer 1

あなたの遅れの日数のためにNAとパッドする必要があります。 1 NAと同じように、1の遅れを持つ最初の行の差分値が足りないために、最初の7行の差分値が足りないために7 NAが必要です。

mtcars %>% 
    mutate(dx = c(NA, diff(mpg)), 
     dx7 = c(rep(NA,7), diff(mpg, 7))) 

またはグループで：ビルトインmtcarsデータフレームを持つ例Axemanの素敵な答え@

mtcars %>% 
    group_by(am) %>% 
    mutate(dx = c(NA, diff(mpg)), 
     dx7 = c(rep(NA,7), diff(mpg, 7))) 

はあなたにも内蔵されている、diffのzooパッケージのバージョンを使用することができることを思い出しましたパディングあなただけのna.padを利用可能にする、diff.zoo方法が派遣されますように、代わりにベースR diffの、zoo対象に、あなたのベクトルを変換する必要があります。

library(zoo) 

mtcars %>% 
    mutate(dx = diff(zoo(mpg), na.pad=TRUE), 
     dx7 = diff(zoo(mpg), 7, na.pad=TRUE)) 

Answer 2

私は完全にdiffを取り払う提案、およびdplyrを使用します非常に自分のlagです。これは必要なのを処理しますNAの。

mtcars %>% 
    mutate(dx = mpg - lag(mpg), 
     dx7 = mpg - lag(mpg, 7))