aggiungere valori di colonna sulla base di altre colonne cornice dati utilizzando e se

Question

Ho un dataframe simili:

 id  adit  diag1 diag2  
     2  3   4230 2234   
     3  5   3345 4456   
     4  6   4567 4467 

Vorrei aggiungere altre 2 colonne, dse1 e dse2 usando il pseudo-codice qui sotto:

if diag1 contains 4230 then dse1 = 1 else dse1 = 0 

if diag2 contains 4567 then dse2 =1 else dse2 = 0 

ho usato questo:

for (i in 1 : nrow(dse)){ 
    for (j in 3: ncol(dse)){ 
    if dse[i,j] %in% ("4320"){dse$dse1 = 1} 
     else{dse$dse1 = 0} 
    if dse[i,j] %in% ("4567"){dse$dse2 = 1} 
     else{dse$dse2 = 0} 
    } 
} 

ma questi non lavoro.

Answer 1

Non c'è bisogno di utilizzare un ciclo, basta usare ifelse, ad esempio

dse = within(dse, { 
    dse1 = ifelse(diag1 == 4230, 1, 0) 
    dse2 = ifelse(diag2 == 4567, 1, 0) 
}) 

Answer 2

Non utilizzare il se/else. Go vettorializzare come in:

dat$dse1 <- as.numeric(dat$diag1 == 4230) 
dat$dse2 <- as.numeric(dat$diag2 == 4567) 

Answer 3

È possibile utilizzare transform:

transform(dse, dse1 = as.numeric(diag1 == 4230), 
       dse2 = as.numeric(diag2 == 4567)) 

Answer 4

Ti piace questa:

dse$dse1<-0 
dse$dse2<-0 
dse$dse1[dse$diag1==4230]<-1 
dse$dse2[dse$diag2==4567]<-1 

Si prega di procurarsi un buon tutorial R (come this) e di leggere tutto sui vettori di indice.