根据先前的行替换R中的行值

Question

下面是我的数据框df

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

我想拥有另一个变量T_D ，当它遇到A值的变化为1或-1时，它保持第一个值，并用0替换下一行

预期产量：

A  T_D
1  1
1  0
1  0
1  0
0  0 
0  0
-1 -1
-1  0
-1  0 
1  1
1  0  
1  0
1  0   

Answer 1

Base R解决方案，这似乎适合您：

df$T_D = df$A*!c(FALSE,diff(df$A,lag=1)==0),

查找顺序行之间的差异。 如果差异为1，则从A列获取条目，否则设置为0。

OUTPUT

    A T_D
1   1   1
2   1   0
3   1   0
4   1   0
5   0   0
6   0   0
7  -1  -1
8  -1   0
9  -1   0
10  1   1
11  1   0
12  1   0
13  1   0

Answer 2

dplyr的窗口函数使此操作变得容易。 您可以使用lag函数查看先前的值，并查看其是否等于当前值。 该表的第一行没有先前的值，因此T_D始终为NA 。 幸运的是，该行将始终等于a因此使用第二个变量（或df[1,2] <- df[1,1] ）修复是一个容易的问题。

library(tidyverse) # Loads dplyr and other useful packages

df <- tibble(a = c(1, 1, 1, 1, 0, 0, -1, -1, -1, 1, 1, 1, 1))

df %>%
  mutate(T_D = ifelse(a == lag(a), 0, a)) %>%
  mutate(T_D = ifelse(is.na(T_D), a, T_D))

Answer 3

df$T_D <- sign(abs(df$A)*diff(c(0, df$A)))

Answer 4

数据data.table方法是

library(data.table)
setDT(df)[, T_D := replace(A, duplicated(A), 0), by = rleid(A)][]

#     A T_D
# 1:  1   1
# 2:  1   0
# 3:  1   0
# 4:  1   0
# 5:  0   0
# 6:  0   0
# 7: -1  -1
# 8: -1   0
# 9: -1   0
#10:  1   1
#11:  1   0
#12:  1   0
#13:  1   0