Назначить направление на основе значений в другом столбце

Question

У меня есть этот пример набора данных (df):

structure(list(sensor = c(12, 12, 12, 8, 12, 12, 8)), class = "data.frame", row.names = c(NA, 
-7L))

Я хотел бы создать новый столбец с именем direction, где в любое время sensor изменяется с 12 на 8, я бы вводил out в той же строке, что и 12, и в любое время sensor изменения с 8 до 12 я бы ввел in в той же строке, что и 12.

Мой желаемый набор данных будет выглядеть так:

Я думаю об использовании dplyr mutate-функции. Но не могу придумать лучший способ сделать это:

df %>% 
  mutate(direction = if_else(...))

Answer 1

case_when также сделает работу

df %>%
    mutate(direction = case_when(lag(sensor)==12 & sensor==8 ~ 'out',
                                 lag(sensor)==8 & sensor==12 ~ 'in'))

Answer 2

with(df1, {
    temp = c(diff(sensor), 0)
    ifelse(temp == -4, "out", ifelse(temp == 4, "in", NA))
})
#[1] NA    NA    "out" "in"  NA    "out" NA