Tengo un dataframe de 3085 filas x 130 columnas, las cuales me centro en la primera columna que es el NHC (identificador del paciente) y las columnas D1 D2,D3 hasta la D20.
Como este es un ejemplo pondré tres filas de cuatro columnas
NHC D1 D2 D3
52 J45.909 UY.852 IR.400
1523 IOP.856 J45.30 IO443
85 AB.93 AY808 UO.900
Los códigos que hay inscritos en cada columna (D1,D2,D3) indican diferentes afecciones del paciente. Si aparece un carácter en algunas de las columnas D1-D3 que empice por "J45." indica que el paciente es asmático. Me gustaría que se obtiese un output como este:
NHC Asmático
52 1
1523 1
85 0
Para ello he construido el código para seleccionar aquellas NHC que incluyen un código determinado.
Asthma<-array(0,dim(todo_junto_df)[1])
for (i in 1:dim(todo_junto_df1)[1]) {
if(any(which(todo_junto_df[i,]=="J45.901" | todo_junto_df[i,]=="J45.909" | todo_junto_df[i,]=="J45.20" | todo_junto_df[i,]=="J45.30"| todo_junto_df[i,]=="J45.50"))) {
Asthma[i]<-1
}
}
Sin embargo me gustaría saber si se podría seleccionar sin necesidad de poner todos los números que indican diferentes tipos de asma: J45.30, J45.909. Es decir solo que seleccione aquellas que empiezan por J45. Para ello he usado la función: start_with
for (i in 1:dim(todo_junto_df1)[1]) {
if(any(starts_with(todo_junto_df[i,]=="J45"))) {
Asthma[i]<-1
}
}
Error: `match` must be a character vector of non empty strings.
No se como solucionar este problema.
¿Gracias de antemano