Para dar claridad al problema tengo el siguiente conjunto de datos:
df<-data.frame(id=1:7,var1=c(1,2,5,6,4,NA,NA),var2=c(1,3,5,7,1,1,NA),var3=c(3,5,2,1,1,NA,NA),var4=c(3,5,2,2,NA,NA,NA),var5=c(2,5,2,3,NA,NA,NA))
df
id var1 var2 var3 var4 var5
1 1 1 1 3 3 2
2 2 2 3 5 5 5
3 3 5 5 2 2 2
4 4 6 7 1 2 3
5 5 4 1 1 NA NA
6 6 NA 1 NA NA NA
7 NA NA NA NA NA NA
Quiero generar una nueva columna, llamada var6
con el valor que más se repite por fila (la moda por fila), en las filas var1
a var5
. Pero ahí no acaba, en caso de que no exista moda (como en la fila 1 del df), var6
tomará valor 99. En conclusión busco que quede así:
df
id var1 var2 var3 var4 var5 var6
1 1 1 1 3 3 2 99
2 2 2 3 5 5 5 5
3 3 5 5 2 2 2 2
4 4 6 7 1 2 3 99
5 5 4 1 1 NA NA 1
6 6 NA 1 NA NA NA 1
7 7 NA NA NA NA NA NA
Por cierto, agregué la columna id para destacar que tengo mas columnas en el df y no solo las que quiero comparar.
De antemano agradezco cualquier ayuda.