Я хочу найти элементы lead() и lag() в каждой группе, но имел некоторые неправильные результаты.
Например, данные выглядят так:
library(dplyr)
df = data.frame(name=rep(c('Al','Jen'),3),
score=rep(c(100, 80, 60),2))
df
Данные:
name score
1 Al 100
2 Jen 80
3 Al 60
4 Jen 100
5 Al 80
6 Jen 60
Теперь я пытаюсь найти оценки lead() и lag() для каждого человека. Если я сортирую его с помощью аранжировки(), я могу получить правильный ответ:
df %>%
arrange(name) %>%
group_by(name) %>%
mutate(next.score = lead(score),
before.score = lag(score) )
OUTPUT 1:
Source: local data frame [6 x 4]
Groups: name
name score next.score before.score
1 Al 100 60 NA
2 Al 60 80 100
3 Al 80 NA 60
4 Jen 80 100 NA
5 Jen 100 60 80
6 Jen 60 NA 100
Без аорты() результат неверен:
df %>%
group_by(name) %>%
mutate(next.score = lead(score),
before.score = lag(score) )
OUTPUT2:
Source: local data frame [6 x 4]
Groups: name
name score next.score before.score
1 Al 100 80 NA
2 Jen 80 60 NA
3 Al 60 100 80
4 Jen 100 80 60
5 Al 80 NA 100
6 Jen 60 NA 80
Например, в 1-й строке Al next.score должен быть 60 (3-я строка).
Кто-нибудь знает, почему это произошло? Зачем аранжировать() влияет на результат (значения, а не только порядка)? Благодаря ~