Find first event and report year - r

Question

Ciao,
I did post a similar inquiry but what I needed changed so deeply sorry as I work for a school district and they need different information!
Here is my replicating example.
a=c(1,2,3,4,5,6)
b=c(1,0,NA,NA,0,NA)
c=c(2010,2010,2010,2010,2010,2010)
d=c(1,1,0,1,0,NA)
e=c(2012,2012,2012,2012,2012,2012)
f=c(1,0,0,0,0,NA)
g=c(2014,2014,2014,2014,2014,2014)
h=c(1,1,0,1,0,NA)
i=c(2010,2012,2014,2012,2014,2014)
mydata = data.frame(a,b,c,d,e,f,g,h,i)
names(mydata) = c("id","test1","year1","test2","year2","test3","year3","anytest","year")
The nuts and bolts is to find the first '1' in test1 and test2 and test3 and then add to column value in year1 or year2 or year3 based on where the first '1' is found. I am aiming to search through each row and find the first test column that is equal to 1. The new column I am aiming to create is "anytest." This column is 1 if test1 or test2 or test3 equals to 1. If none of them do then it equals to 0. This ignores NA values..if test1 and test2 are NA but test3 equals to 0 then anytest equals to 0. Now I have made progress I think using this code:
anytestTRY = if(rowSums(mydata[,c(test1,test2,test3)] == 1, na.rm=TRUE) > 0],1,0)
But now I am at a crossroads because I am aiming to search through each row to find the first column of test1 test2 or test3 that equals to 1 and then report the year for that test. So if test1 equals to 0 and test2 equals to NA and test3 equals to 1 I want the column which I created called year3 to be in date. Then last of all if test 1 and test2 and test3 all equals to 0 or NA or some combination of the sort then date should be last year which here is 2014.

Answer 1

We can use rowSums from base R to create the anytest column
i1 <- grep('test', names(mydata))
NA^(rowSums(is.na(mydata[i1])) == 3) * (rowSums(mydata[i1] == 1, na.rm = TRUE) !=0)
#[1] 1 1 0 1 0 NA
If we also need a column of 'date', use max.col to get the column index of the max value of 'test' per row, extract the 'year' based on cbinding the row index with column index
i2 <- grep('year', names(mydata))
m1 <- replace(mydata[i1], is.na(mydata[i1]), 0)
i3 <- !rowSums(m1 == 1)
date <- rep(NA, nrow(mydata))
date[!i3] <- mydata[i2][!i3,][cbind(seq_len(sum(!i3)), max.col(m1[!i3,], 'first'))]
date[i3] <- do.call(pmax, mydata[i2][i3,])
date
#[1] 2010 2012 2014 2012 2014 2014

Answer 2

a=c(1,2,3,4,5,6)
b=c(1,0,NA,NA,0,NA)
c=c(2010,2010,2010,2010,2010,2010)
d=c(1,1,0,1,0,NA)
e=c(2012,2012,2012,2012,2012,2012)
f=c(1,0,0,0,0,NA)
g=c(2014,2014,2014,2014,2014,2014)
h=c(1,1,0,1,0,NA)
i=c(2010,2012,2014,2012,2014,2014)
mydata = data.frame(a,b,c,d,e,f,g)
names(mydata) = c("id","test1","year1","test2","year2","test3","year3")
library(tidyverse)
library(lubridate)
mydata %>%
mutate_all(~as.numeric(as.character(.))) %>% # update columns to numeric
group_by(id) %>% # for each id
nest() %>% # nest data
mutate(date = map(data, ~case_when(.$test1==1 ~ .$year1, # get year based on first test that is 1
.$test2==1 ~ .$year2,
.$test3==1 ~ .$year3,
TRUE ~ max(c(mydata$year1, mydata$year2, mydata$year3)))), # if no test is 1 get the maximum year in the original dataset
anytest = map(data, ~as.numeric(case_when(sum(c(.$test1, .$test2, .$test3)==1, na.rm = T) > 0 ~ "1", # create anytest column
sum(is.na(c(.$test1, .$test2, .$test3))) == 3 ~ "NA",
TRUE ~ "0")))) %>%
unnest()
which returns:
# # A tibble: 6 x 9
# id date anytest test1 year1 test2 year2 test3 year3
# <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
# 1 1 2010 1 1 2010 1 2012 1 2014
# 2 2 2012 1 0 2010 1 2012 0 2014
# 3 3 2014 0 NA 2010 0 2012 0 2014
# 4 4 2012 1 NA 2010 1 2012 0 2014
# 5 5 2014 0 0 2010 0 2012 0 2014
# 6 6 2014 NA NA 2010 NA 2012 NA 2014