Используются mutate и lag, получают отрицательные значения, которые хотят превратить в 0

Question

Я использовал следующую работу над столбцом, в котором я вычитал значение строки из значения строки перед ним.

mutate(diff = v1 - lag(v1, default = first(v1)))

Иногда приведенный выше код дает мне отрицательные значения, я этого не хочу. Какой хороший способ заменить отрицательные числа на 0, ответвляющиеся от приведенного выше кода?

Answer 1

Мы можем использовать

library(dplyr) 
df1 %>%
     mutate(diff = v1 - lag(v1, default = first(v1)),
            diff = replace(diff, diff < 0, 0))