根據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+2位置， ith+3 。

因此$PAIR_IDENTIFIER <- c(1,1,2,2,3,3,3,4,4,4,4,4 .....)

Answer 1

您只需使用cumsum即可做到這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