डेटा फ्रेम में अन्य स्तंभों के लिए और प्रयोग पर आधारित स्तंभ मान जोड़ने

Question

मैं इस तरह एक dataframe अगर:

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

मैं अन्य 2 कॉलम, dse1 और dse2 नीचे छद्म कोड का उपयोग कर जोड़ना चाहते हैं:

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

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

मैं इस प्रयोग किया है:

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

लेकिन इन नहीं करना टी काम नहीं

Answer 1

कोई ज़रूरत नहीं है, उदाहरण के

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

Answer 2

if/else का उपयोग न करें। में के रूप में vectorized जाओ: एक पाश का उपयोग करने के लिए, बस ifelse का उपयोग

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

Answer 3

के लिए आप transform उपयोग कर सकते हैं:

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

Answer 4

इस तरह

:

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

कृपया अपने आप को एक अच्छा आर ट्यूटोरियल प्राप्त करें (जैसे this) और इंडेक्स वैक्टर के बारे में सभी पढ़ें।