I want to do the same as in this question asked:
Assigning dummy values based on previous occurrences in R
BUT I want not only that the column "dummycount" takes the value 1 for the occurrence in the previous year in column "dummy" but also in the same year of the occurrence.
can you help me, please?
Is this what you are trying to achieve?
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
df1 <- read.table(
text = "nameID titleID year dummy
a b 1999 1
e c 1999 1
i d 2000 0
o f 2000 0
a f 2000 1
e g 2001 0
i h 2002 0
i j 2003 0
u k 2003 1
o l 2004 1
a m 2004 0
o m 2004 0
u n 2005 0",
header = TRUE
)
df1 %>%
group_by(nameID) %>%
mutate(dummycount = ifelse(cummax(lag(dummy, default = 0)) >= 1 | cummax(dummy) >= 1, 1, 0))
#> # A tibble: 13 × 5
#> # Groups: nameID [5]
#> nameID titleID year dummy dummycount
#> <chr> <chr> <int> <int> <dbl>
#> 1 a b 1999 1 1
#> 2 e c 1999 1 1
#> 3 i d 2000 0 0
#> 4 o f 2000 0 0
#> 5 a f 2000 1 1
#> 6 e g 2001 0 1
#> 7 i h 2002 0 0
#> 8 i j 2003 0 0
#> 9 u k 2003 1 1
#> 10 o l 2004 1 1
#> 11 a m 2004 0 1
#> 12 o m 2004 0 1
#> 13 u n 2005 0 1
Created on 2021-11-08 by the reprex package (v2.0.1)