r - 转换 R 数据帧中的连续数字

Question

我有一个包含连续值的数据框，是否可以使 1 秒后的数字 = 0？

df <- data.frame(a = c(0,0,0,0,1,1,1,0,0,0),
  b = c(0,0,1,1,1,1,0,0,0,0),
  c = c(1,1,0,0,0,0,0,1,1,0))

像这样:

Answer 1

library(dplyr)
df %>% 
  mutate(across(everything(), ~ +(.x == 1 & lag(.x, default = 0) != 1)))

输出

   a b c
1  0 0 1
2  0 0 0
3  0 1 0
4  0 0 0
5  1 0 0
6  0 0 0
7  0 0 0
8  0 0 1
9  0 0 0
10 0 0 0