r - 在R中基于二进制代码定义一个虚拟变量

Question

以医院的以下患者数据示例为例。

YEAR <- sample(1980:1995,15, replace=T)
Pat_ID <- sample(1:100,15)
sex <- c(1,0,1,0,1,0,0,1,0,0,0,0,1,0,0)

df1 <- data.frame(Pat_ID,YEAR,sex)

我想引入一个虚拟变量$PAIR_IDENTIFIER，每次出现新值时都会采用一个新值sex==1。问题是sex变量没有常量模式。

您有时会看到成功1出现在该ith+2位置，然后是ith+3位置等。

所以$PAIR_IDENTIFIER <- c(1,1,2,2,3,3,3,4,4,4,4,4 .....)

Answer 1

您可以通过简单地使用cumsum,

df1$PAIR_IDENTIFIER <- cumsum(df1$sex)
df1
#   Pat_ID YEAR sex PAIR_IDENTIFIER
#1      54 1991   1               1
#2     100 1992   0               1
#3       6 1995   1               2
#4      99 1994   0               2
#5      42 1988   1               3
#6      65 1990   0               3
#7      53 1994   0               3
#8      96 1987   1               4