R में PCH ट्यूटोरियल

प्लॉट कैरेक्टर या pch कई R फ़ंक्शंस में प्लॉट किए जाने वाले कैरेक्टर को सेट करने का मानक आर्ग्युमेंट है।

किसी प्लॉट में स्पष्टीकरणात्मक टेक्स्ट कई रूपों में जोड़ा जा सकता है, जैसे अक्ष लेबल, शीर्षक, लीजेंड, या स्वयं प्लॉट पर जोड़ा गया टेक्स्ट। R की बेस ग्राफ़िक्स फ़ंक्शंस आमतौर पर डिफ़ॉल्ट रूप से अक्ष लेबल बनाती हैं, हालांकि इन्हें xlab() आर्ग्युमेंट के ज़रिए ओवरराइड किया जा सकता है, जो हमें अपना x-अक्ष लेबल देने देता है, और ylab() जो हमें अपना y-अक्ष लेबल देने देता है।

कुछ बेस ग्राफ़िक्स फ़ंक्शंस डिफ़ॉल्ट शीर्षक भी देती हैं, लेकिन जैसा कि यहाँ देखते हैं, इन्हें भी ओवरराइड किया जा सकता है:

library(MASS)
par(mfrow = c(1, 2))
plot(density(geyser$waiting))
plot(density(geyser$waiting), main = "Estimated density: \n Old Faithful waiting times")

बायें वाले प्लॉट में density फ़ंक्शन द्वारा लौटाया गया डिफ़ॉल्ट शीर्षक है, जो बताता है कि यह प्लॉट इसी फ़ंक्शन द्वारा इसकी डिफ़ॉल्ट सेटिंग्स से बनाया गया है और साथ ही उस वैरिएबल के लिए R स्पेसिफ़िकेशन देता है जिसकी डेंसिटी हम प्लॉट कर रहे हैं। दायें वाले प्लॉट में, इस डिफ़ॉल्ट शीर्षक को वैकल्पिक आर्ग्युमेंट main निर्दिष्ट करके ओवरराइड किया गया है। ध्यान दें कि रिटर्न कैरेक्टर बैकस्लैश n शामिल करने से हम इस कैरेक्टर स्ट्रिंग में दो-लाइन का शीर्षक बना रहे हैं।

text() फ़ंक्शन

lines और points फ़ंक्शंस की तरह, text एक लो-लेवल ग्राफ़िक्स फ़ंक्शन है जो हमें मौजूदा प्लॉट में स्पष्टीकरणात्मक टेक्स्ट जोड़ने देता है। ऐसा करने के लिए, हमें x और y के मान निर्दिष्ट करने होते हैं, यानी प्लॉट पर वे निर्देशांक जहाँ टेक्स्ट दिखना चाहिए, और labels, जो जोड़े जाने वाले टेक्स्ट को निर्दिष्ट करने वाला एक कैरेक्टर वेक्टर है।

text(x, y, adj)

डिफ़ॉल्ट रूप से, प्लॉट में जोड़ा गया टेक्स्ट निर्दिष्ट x मानों पर केंद्रित होता है, लेकिन वैकल्पिक आर्ग्युमेंट adj का उपयोग एलाइनमेंट बदलने के लिए किया जा सकता है।

ध्यान दें कि text() फ़ंक्शन का adj आर्ग्युमेंट टेक्स्ट के क्षैतिज प्लेसमेंट को निर्धारित करता है, और यह 0 (बायाँ-संरेखित टेक्स्ट) और 1 (दायाँ-संरेखित टेक्स्ट) के बीच कोई भी मान ले सकता है। वास्तव में, यह आर्ग्युमेंट इस दायरे के बाहर के मान भी ले सकता है। यानी, इस मान को नेगेटिव करने से टेक्स्ट निर्दिष्ट x स्थिति के दाहिने ओर से शुरू होता है। इसी तरह, adj को 1 से बड़ा करने पर टेक्स्ट x स्थिति के बाएँ ओर समाप्त होता है।

library(MASS)
plot(UScereal$fibre)
text(5, 28, "<-- Outliers [left-justified text at (5, 28)]", adj = 0)
text(65, 23, "[Right-justified text at (65, 23)]", adj = 1, col = "red")
text(5, 28, "[Centered text (default) at (31, 18)]", col = "blue")

फ़ॉन्ट, ओरिएंटेशन, और अन्य टेक्स्ट विशेषताएँ

नीचे हम देखते हैं कि text फ़ंक्शन के वैकल्पिक आर्ग्युमेंट्स के माध्यम से जोड़े गए टेक्स्ट के रूप-रंग को किन तरीकों से बदला जा सकता है। डिफ़ॉल्ट रूप से, टेक्स्ट पेज पर क्षैतिज रूप में बनाया जाता है, लेकिन इसे srt आर्ग्युमेंट से बदला जा सकता है, जो क्षैतिज अक्ष के सापेक्ष ओरिएंटेशन का कोण बताता है।

अगले हिस्से में, लाल रंग का टेक्स्ट ऊपर की ओर झुका है क्योंकि srt को 30 डिग्री के धनात्मक मान के रूप में सेट किया गया है, जबकि हरे रंग का टेक्स्ट srt बराबर -45 निर्दिष्ट करने से नीचे की ओर झुका है।

हम col आर्ग्युमेंट से टेक्स्ट का रंग भी निर्धारित कर सकते हैं, और लाल टेक्स्ट दिखाता है कि हम cex आर्ग्युमेंट से टेक्स्ट का आकार बदल सकते हैं। cex = 1.2 निर्दिष्ट करके, हमने टेक्स्ट को सामान्य से 20% बड़ा तय किया है।

इस उदाहरण में बदली गई दूसरी टेक्स्ट विशेषता फ़ॉन्ट है, जिसे font आर्ग्युमेंट से सेट किया जाता है। डिफ़ॉल्ट मान font = 1 है, जो सामान्य टेक्स्ट बताता है, जबकि font = 2 बोल्डफ़ेस, font = 3 इटैलिक, और font = 4 बोल्डफ़ेस और इटैलिक दोनों निर्धारित करता है।

library(MASS)
plot(Boston$rad)

# "Inner city" with adjusted colour and rotation
text(350, 24, adj = 1, "Inner city? -->", srt = 30, font = 2, cex = 1.2, col = "red")

# "Suburbs" with adjusted colour and rotation
text(100, 15, "Suburbs? -->", srt = -45, font = 3, col = "green")

title("Text with varying orientations, fonts, sizes & colors")

टेक्स्ट की स्थिति, आकार, और फ़ॉन्ट समायोजित करना

निम्न उदाहरण में, आप ये करेंगे:

• Cars93 डेटा फ़्रेम से MPG.city बनाम Horsepower का प्लॉट बनाएँ, जहाँ डेटा खुले वृत्तों (डिफ़ॉल्ट pch) के रूप में दर्शाया गया हो।
• which() फ़ंक्शन का उपयोग करके वैरिएबल index3 बनाएँ, जो सभी 3-सिलेंडर कारों वाली पंक्तियों के नंबर पहचानता है।
• points() फ़ंक्शन का उपयोग करके सभी 3-सिलेंडर कारों का प्रतिनिधित्व करने वाले बिंदुओं के ऊपर ठोस वृत्त (pch = 16) ओवरले करें।
• पहले की तरह Make वैरिएबल के साथ text() फ़ंक्शन का उपयोग करके 3-सिलेंडर कारों के दाईं ओर लेबल जोड़ें, लेकिन अब adj = 0.2 का उपयोग करके लेबल को और दाईं ओर खिसकाएँ, cex आर्ग्युमेंट से लेबल का आकार 20 प्रतिशत बढ़ाएँ, और font आर्ग्युमेंट से लेबल्स को बोल्ड इटैलिक करें।

# Plot MPG.city vs. Horsepower as open circles
plot(Cars93$Horsepower, Cars93$MPG.city)

# Create index3, pointing to 3-cylinder cars
index3 <- which(Cars93$Cylinders == 3)

# Highlight 3-cylinder cars as solid circles
points(Cars93$Horsepower[index3],
       Cars93$MPG.city[index3],
       pch = 16)

# Add car names, offset from points, with larger bold text
text(Cars93$Horsepower[index3],
     Cars93$MPG.city[index3],
     Cars93$Make[index3],
     adj = -0.2, cex = 1.2, font = 4)

ऊपर दिया गया कोड चलाने पर निम्न परिणाम निकलता है:

खुद आज़माएँ।

प्लॉट्स में टेक्स्ट जोड़ने के बारे में और जानने के लिए, हमारे कोर्स Data Visualization in R का यह वीडियो देखें।

यह सामग्री DataCamp के Ronald Pearson द्वारा बनाए गए Data Visualization in R कोर्स से ली गई है।