Сравните текущую строку с последующими (порядок по дате и группе) в r

Question

У меня есть набор данных, который содержит 3 столбца (Группа, Дата, Значение). Для каждой строки (комбинация группы и даты) я хотел бы оценить, когда (в днях) значение увеличивается на 1%.

df <- read.table(text =
                    "Group   Date    value
                  A      11/1/17     56
                  A      11/2/17     51
                  A      11/3/17     58
                  A      11/4/17     62
                  A      11/5/17     60
                  A      11/6/17     55
                  A      11/7/17     56
                  A      11/8/17     56
                  A      11/9/17     53
                  B      11/1/17     56
                  B      11/2/17     63
                  B      11/3/17     50
                  B      11/4/17     62
                  B      11/5/17     65
                  B      11/6/17     61
                  B      11/7/17     56
                  B      11/8/17     62 
                  C      11/1/17     50
                  C      11/2/17     62 ", header = T)

Я бы хотел, чтобы результат выглядел примерно так ... Мне интересен столбец increase_by_1%. increase_by_1% - это разница между датами, когда текущая строка увеличивается на 1%. Итак, дата, на которую это значение увеличилось, минус дата текущего значения.

Например, логика для 1-й строки будет

# if group == A & (value on 11/2/17 = 51 –  value on 11/1/17 = 56)/ value on 11/1/17 = 56 >= .01 THEN FALSE  
# if group == A &  (value on 11/3/17 = 58 –  value on 11/1/17 = 56)/ value on 11/1/17 = 56 >= .01 = TRUE THEN (**11/3/17 - 11/1/17 = 2**)

Логика для 2-го ряда ...

# if group == A & (value on 11/3/17 = 58 –  value on 11/2/17 = 51)/ value on 11/2/17 = 51 >= .01 = TRUE THEN (**11/3/17 - 11/2/17 = 1**)

логика для 4-го ряда ...

# if group == A & (value on 11/5/17 = 60 –  value on 11/4/17 = 62)/ value on 11/4/17 = 62 >= .01 = FALSE THEN NA

# if group == A & (value on 11/6/17 = 55 –  value on 11/4/17 = 62)/ value on 11/4/17 = 62 >= .01 = FALSE THEN NA

# if group == A & (value on 11/7/17 = 56 –  value on 11/4/17 = 62)/ value on 11/4/17 = 62 >= .01 = FALSE THEN NA

# if group == A & (value on 11/8/17 = 56 –  value on 11/4/17 = 62)/ value on 11/4/17 = 62 >= .01 = FALSE THEN NA

# if group == A & (value on 11/9/17 = 53 –  value on 11/4/17 = 62)/ value on 11/4/17 = 62 >= .01 = FALSE THEN NA 

NA означает, что значение текущей строки (например, 11/4/17) не увеличивается для последующих строк.

---

+=======+=========+=======+================+
| Group |  Date   | value | increase_by_1% |
+=======+=========+=======+================+
| A     | 11/1/17 |    56 | 2              | 
+-------+---------+-------+----------------+
| A     | 11/2/17 |    51 | 1              |
+-------+---------+-------+----------------+
| A     | 11/3/17 |    58 | 1              |
+-------+---------+-------+----------------+
| A     | 11/4/17 |    62 | NA             |
+-------+---------+-------+----------------+
| A     | 11/5/17 |    60 | NA             |
+-------+---------+-------+----------------+
| A     | 11/6/17 |    55 | 1              |
+-------+---------+-------+----------------+
| A     | 11/7/17 |    56 | NA             |
+-------+---------+-------+----------------+
| A     | 11/8/17 |    56 | NA             |
+-------+---------+-------+----------------+
| A     | 11/9/17 |    53 | NA             |
+-------+---------+-------+----------------+
| B     | 11/1/17 |    56 | 1              |
+-------+---------+-------+----------------+
| B     | 11/2/17 |    63 | 3              |
+-------+---------+-------+----------------+
| B     | 11/3/17 |    50 | 1              |
+-------+---------+-------+----------------+
| B     | 11/4/17 |    62 | 1              |
+-------+---------+-------+----------------+
| B     | 11/5/17 |    65 | NA             |
+-------+---------+-------+----------------+
| B     | 11/6/17 |    61 | 2              |
+-------+---------+-------+----------------+
| B     | 11/7/17 |    56 | 1              |
+-------+---------+-------+----------------+
| B     | 11/8/17 |    62 | NA             |
+-------+---------+-------+----------------+
| C     | 11/1/17 |    50 | 1              |
+-------+---------+-------+----------------+
| C     | 11/2/17 |    62 | NA             |
+-------+---------+-------+----------------+

Это то, что я имею до сих пор, однако, это не масштабируется. Если есть еще даты, мне нужно было бы добавить их вручную в операторе if else.

shift <- function(x, n){
  c(x[-(seq(n))], rep(NA, n))
}

df= do.call(rbind,by(df,df$Group, transform,next_1_percent_or_higher_change =
                        ifelse(((shift(value,1)-value)/value) >= .01,1,
                               ifelse(((shift(value,2)-value)/value) >= .01,2,
                               ifelse(((shift(value,3)-value)/value) >= .01,3,
                                      ifelse(((shift(value,4)-value)/value) >= .01,4,
                                             ifelse(((shift(value,5)-value)/value) >= .01,5,
                                                    ifelse(((shift(value,6)-value)/value) >= .01,6,
                                                            ifelse(((shift(value,7)-value)/value) >= .01,7,
                                                                  ifelse(((shift(value,8)-value)/value) >= .01,8,
                                                                         ifelse(((shift(value,9)-value)/value) >= .01,9,NA)))))))))))

Answer 1

Если я правильно понимаю, вы ищете value изменения> 1% по сравнению с предыдущей строкой, ограниченные одним и тем же Group.

library(dplyr)

f_flagged_shorter <- f %>%
      group_by(Group) %>%
      mutate(flag = value >= lag(value)*1.01) %>%
      ungroup()