आर में पॉइसन वितरण कैसे प्लॉट करें

आर में पॉइसन वितरण के लिए संभाव्यता द्रव्यमान फ़ंक्शन को प्लॉट करने के लिए, हम निम्नलिखित फ़ंक्शन का उपयोग कर सकते हैं:

• संभाव्यता द्रव्यमान फ़ंक्शन बनाने के लिए dpois(x, Lambda)।
• प्लॉट (x, y, टाइप = ‘h’) प्रायिकता द्रव्यमान फ़ंक्शन को प्लॉट करने के लिए, यह निर्दिष्ट करते हुए कि प्लॉट एक हिस्टोग्राम है (टाइप = ‘h’)

संभाव्यता द्रव्यमान फ़ंक्शन को प्लॉट करने के लिए, बस लैम्ब्डा निर्दिष्ट करें   (उदाहरण के लिए घटनाओं की घटना दर) dpois() फ़ंक्शन में।

उदाहरण के लिए, निम्नलिखित कोड दिखाता है कि लैम्ब्डा = 5 के साथ पॉइसन वितरण के लिए संभाव्यता द्रव्यमान फ़ंक्शन को कैसे प्लॉट किया जाए:

 #define range of "successes"
success <- 0:20

#create plot of probability mass function
plot(success, dois(success, lambda=5), type='h')

एक्स-अक्ष “सफलताओं” की संख्या दिखाता है – उदाहरण के लिए घटित घटनाओं की संख्या – और वाई-अक्ष 20 परीक्षणों में सफलताओं की उस संख्या को प्राप्त करने की संभावना दिखाता है।

कथानक को सौंदर्य की दृष्टि से अधिक आकर्षक बनाने के लिए हम एक शीर्षक जोड़ सकते हैं, अक्ष लेबल बदल सकते हैं और पंक्तियों की चौड़ाई बढ़ा सकते हैं:

 success <- 0:20

plot(success, dois(success, lambda=5),
     type='h',
     main='Fish Distribution (lambda = 5)',
     ylab='Probability',
     xlab ='# Successes',
     lwd=3)

ग्राफ़ में प्रदर्शित प्रत्येक सफलता की संख्या के लिए वास्तविक संभावनाएँ प्राप्त करने के लिए हम निम्नलिखित कोड का उपयोग कर सकते हैं:

 #prevent R from displaying numbers in scientific notation
options(scipen=999) 

#define range of successes
success <- 0:20

#display probability of success for each number of trials
dpois(success, lambda=5)

[1] 0.0067379469991 0.0336897349954 0.0842243374886 0.1403738958143
[5] 0.1754673697679 0.1754673697679 0.1462228081399 0.1044448629571
[9] 0.0652780393482 0.0362655774156 0.0181327887078 0.0082421766854
[13] 0.0034342402856 0.0013208616483 0.0004717363030 0.0001572454343
[17] 0.0000491391982 0.0000144527054 0.0000040146404 0.0000010564843
[21] 0.0000002641211