dodać wartości kolumny na podstawie innych kolumn w ramce danych, z zastosowaniem, na jeśli

Question

mam dataframe tak:

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

będzie dodam 2 pozostałych kolumn dse1 i dse2 pomocą poniższego pseudokod:

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

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

użyłem to:

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} 
    } 
} 

Ale to nie robić t działa.

Answer 1

Nie trzeba używać pętlę, wystarczy użyć ifelse np

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

Answer 2

Nie używaj symbolu if/else. Idź wektorowy jak w:

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

Answer 3

Można użyć transform:

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

Answer 4

Jak to:

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

Przygotuj się na dobry tutorial R (taki jak this) i przeczytaj wszystko o wektorach indeksowych.