आर में नेस्टेड इफ एल्स स्टेटमेंट कैसे लिखें (उदाहरण के साथ)

बेस आर में ifelse() फ़ंक्शन का उपयोग त्वरित if-else कथन लिखने के लिए किया जा सकता है। यह फ़ंक्शन निम्नलिखित सिंटैक्स का उपयोग करता है:

ifelse(परीक्षण, हाँ, नहीं)

सोना:

• परीक्षण: एक तार्किक परीक्षण
• हाँ: यदि तर्क परीक्षण सत्य है तो लौटाया जाने वाला मान
• नहीं: यदि तर्क परीक्षण ग़लत है तो लौटाया जाने वाला मान

यह ट्यूटोरियल बताता है कि निम्नलिखित डेटा फ़्रेम का उपयोग करके आर में यदि अन्य कथन के साथ-साथ नेस्टेड यदि अन्य कथन लिखने के लिए इस फ़ंक्शन का उपयोग कैसे करें:

 #create data frame
df <- data.frame(team = c('A', 'A', 'B', 'B', 'B', 'C', 'D'),
                 points = c(4, 7, 8, 8, 8, 9, 12),
                 rebounds = c(3, 3, 4, 4, 6, 7, 7))

#view data frame
df

  team points rebounds
1 to 4 3
2 to 7 3
3 B 8 4
4 B 8 4
5 B 8 6
6 C 9 7
7 D 12 7

उदाहरण 1: मूल यदि अन्यथा विवरण कैसे लिखें

निम्नलिखित कोड दिखाता है कि डेटा फ़्रेम में एक नया कॉलम कैसे बनाया जाए जिसका मान “टीम” कॉलम के मान पर आधारित है:

 #create new column in data frame
df$rating <- ifelse (df$team == ' A ', ' great ', ' bad ')

#view data frame
df

  team points rebounds rating
1 A 4 3 great
2 A 7 3 great
3 B 8 4 bad
4 B 8 4 bad
5 B 8 6 bad
6 C 9 7 bad
7 D 12 7 bad

यह सरल ifelse कथन R को निम्नलिखित कार्य करने के लिए कहता है:

• यदि टीम कॉलम में मान “ए” है, तो खिलाड़ी को “उत्कृष्ट” रेटिंग दें।
• अन्यथा, खिलाड़ी को “खराब” होने से रोकें।

उदाहरण 2: नेस्टेड इफ़ एल्स स्टेटमेंट कैसे लिखें

निम्नलिखित कोड दिखाता है कि नेस्टेड if else कथन लिखकर डेटा फ्रेम में एक नया कॉलम कैसे बनाया जाए:

 #create new column in data frame
df$rating <- ifelse (df$team == ' A ', ' great ',
               ifelse (df$team == ' B ', ' OK ', ' bad '))

#view data frame
df

  team points rebounds rating
1 A 4 3 great
2 A 7 3 great
3 B 8 4 OK
4 B 8 4 OK
5 B 8 6 OK
6 C 9 7 bad
7 D 12 7 bad

यह नेस्टेड ifelse स्टेटमेंट R को निम्नलिखित करने के लिए कहता है:

• यदि टीम कॉलम में मान “ए” है, तो खिलाड़ी को “उत्कृष्ट” रेटिंग दें।
• अन्यथा, यदि टीम कॉलम में मान “बी” है, तो खिलाड़ी को “ओके” की रेटिंग दें।
• अन्यथा, खिलाड़ी को “खराब” होने से रोकें।

उदाहरण 3: यदि अन्यथा हो तो लंबे समय तक नेस्टेड कथन कैसे लिखें

निम्नलिखित कोड दिखाता है कि डेटा फ़्रेम में और भी लंबा नेस्टेड if else कथन लिखकर एक नया कॉलम कैसे बनाया जाए:

 #create new column in data frame
df$rating <- ifelse (df$team == ' A ', ' great ',
               ifelse (df$team == ' B ', ' OK ',
                 ifelse (df$team == ' C ', ' decent ', ' bad ')))

#view data frame
df

  team points rebounds rating
1 A 4 3 great
2 A 7 3 great
3 B 8 4 OK
4 B 8 4 OK
5 B 8 6 OK
6 C 9 7 decent
7 D 12 7 bad

यह नेस्टेड ifelse स्टेटमेंट R को निम्नलिखित करने के लिए कहता है:

• यदि टीम कॉलम में मान “ए” है, तो खिलाड़ी को “उत्कृष्ट” रेटिंग दें।
• अन्यथा, यदि टीम कॉलम में मान “बी” है, तो खिलाड़ी को “ओके” की रेटिंग दें।
• अन्यथा, यदि टीम कॉलम में मान “सी” है, तो खिलाड़ी को “सभ्य” रेटिंग दें।
• अन्यथा, खिलाड़ी को “खराब” होने से रोकें।

ध्यान दें कि आप जब तक चाहें तब तक नेस्टेड ifelse कथन लिखने के लिए इस सटीक पैटर्न का उपयोग कर सकते हैं।

आप यहां अधिक आर ट्यूटोरियल पा सकते हैं।