删除滞后==为0的成对行，并使用dplyr和链接计算% change

library(dplyr)

# 创建示例数据框
data <- data.frame(
  id = c(1, 2, 3, 4, 5),
  value = c(10, 20, 0, 0, 50)
)

# 显示原始数据
data

  id value
1  1    10
2  2    20
3  3     0
4  4     0
5  5    50

# 删除滞后为0的成对行，并计算% change
result <- data %>%
  filter(value != 0 | lag(value) != 0) %>%
  mutate(change = (value - lag(value)) / lag(value) * 100)

# 显示结果
result

  id value change
1  1    10     NA
2  2    20  100.0
3  3     0 -100.0
4  5    50    Inf