r - Plot with multiple graphs -


मैं निम्नलिखित की तरह साजिश उत्पन्न करना चाहूंगा:

 यहाँ छवि विवरण दर्ज करें

यह एक ऐसी साजिश है जो वावटलेट नामक फ़ंक्शन के" डायलन "और" अनुवाद "को दर्शाती है। फ़ंक्शन यहाँ महत्वपूर्ण नहीं है, लेकिन मैं इस तरह से एक साजिश कैसे उत्पन्न कर सकता हूँ।

क्या कोई मुझे एक संकेत दे सकता है जो यह करने का सबसे अच्छा तरीका है? साजिश में छह समन्वय अक्षरों की तरह मैं कैसे प्राप्त कर सकता हूं? क्या मुझे par (mfrow = c (3,3)) से शुरू करना चाहिए ?

अब तक मैंने इसे निम्न कोड के साथ प्रबंधित किया है:

  मो & लेफ्टिनेंट; -फंक्शन (टी, ट्रांस = 0, ओमेगा = 6, जे = 0) {डायल & एलटी; -2 * 2 ^ (जे * .125) एसक्यूआरटी ((1 / डायल)) * पीआई ^ (- 1/4 ) * एपीपी (1i * ओमेगा * (टी-ट्रांस) / डायल) * एक्सपी (- ((टी-ट्रांस) / डायल) ^ 2/2)} बराबर (एमएफआरओ = सी (3,3)) प्लॉट ( seq (-10,10, लंबाई = 1000), रे (मो (सेक (-10,10, लंबाई = 1000), ट्रांस = -3)), अक्ष = एफ, xlab = "", ylab = "", टाइप करें = "एल") abline (h = 0, v = 0) प्लॉट (सीक (-10,10, लंबाई = 1000), रे (मो (सेक (-10,10, लंबाई = 1000), ट्रांस = 0)) , Axes = F, xlab = "", ylab = "", type = "l") abline (h = 0, v = 0) प्लॉट (seq (-10,10, लंबाई = 1000), रे (मो (seq (-10,10, लंबाई = 1000), ट्रांस = 3)), अक्ष = एफ, xlab = "", ylab = "", type = "l") abline (h = 0, v = 0) ### ######### प्लॉट (सीक (-10,10, लंबाई = 1000), रे (मो (सेक (-10,10, लंबाई = 1000), ट्रांस = -3, जे = 6)) , Axes = F, xlab = "", ylab = "", type = "l") abline (h = 0, v = 0) प्लॉट (seq (-10,10, लंबाई = 1000), रे (मो (seq (-10,10, लंबाई = 1000), ट्रांस = 0, जे = 6)), अक्ष = एफ, xlab = "", ylab = "", type = "l") abline (h = 0, v = 0 ) (एक्स (-10,10, लंबाई = 1000), ट्रांस = 3, जे = 6)), अक्ष = एफ, एक्सएलएबी = "", प्लॉट (सेक् (-10,10, लंबाई = 1000) ylab = "", प्रकार = "l") abline (h = 0, v = 0) ############ प्लॉट (सीक (-10,10, लंबाई = 1000), पुनः (मो (सीक (-10,10, लंबाई = 1000), ट्रांस = -3, जे = 6)), अक्ष = एफ, xlab = "", ylab = "", type = "l") abline (h = 0, वी = 0) प्लॉट (सीक (-10,10, लंबाई = 1000), रे (मो (सेक् (-10,10, लंबाई = 1000), ट्रांस = 0, जे = 6)), अक्ष = एफ, एक्सलाब = ("=" ", Ylab =" ", type =" l ") abline (h = 0, v = 0) प्लॉट (सीक (-10,10, लंबाई = 1000), रे (मो (सीक (-10,10, लंबाई = 1000), ट्रांस = 3, जे = 6)), अक्ष = एफ, xlab = "", ylab = "", type = "l") abline (h = 0, v = 0)   

यहाँ छवि विवरण दर्ज करें

लेकिन यह अभी भी नहीं है जो मुझे चाहिए

यहां भूखंडों की विशिष्ट व्यवस्था बनाने के लिए लेआउट का उपयोग कर एक समाधान है बाएं और ऊपर की तरफ लंबी तीरों के लिए अतिरिक्त पैनल

  बराबर (मार् = सी (1,1,1,1), ओमा = सी (5,4,4,2)) एम = मैट्रिक्स (सी (0, 1, 1, 1, 2, 3, 4, 5, 2, 6, 7, 8, 2, 9, 10, 11), बारो = टी, एनएकल = 4) एल = लेआउट (चटाई = एम, चौड़ाई = सी (.1, .2, .2, .2), ऊंचाइयों = सी (.1, .2, .2, .2)) # जांचें कि लेआउट क्या है जैसा कि हम EXPEC टी लेआउट.शो (एल) # पैनल 1 प्लॉट (1, xlim = c (1,10), ylim = c (0,1), प्रकार = 'n', अक्ष = एफ, एन = एफ) के लिए शीर्ष तीर जोड़ें तीर (x0 = 1, x1 = 10, y0 = 0.5, y1 = 0.5) mtext (पक्ष = 3, 'कुछ पाठ') # पैनल 2 प्लॉट (1, xlim = c (0,1), ylim = (1,10), प्रकार = 'एन', अक्ष = एफ, एन = एफ) तीर (y0 = 10, y1 = 1, x0 = 0.5, x1 = 0.5) mtext (पक्ष = 2, 'कुछ पाठ' ) # प्लॉट्स को 3:11 के लिए प्लॉट्स जोड़ें (1: 9 में) (वक्र (पाप (x), -2 * pi, 2 * pi, अक्ष = एफ, एन = एफ) # प्लॉट के एक्स और वाई एक्सट्रैन्ट्स प्राप्त करें तीर (x 'x') [3] xmax = par ('usr') [2] xmin = par ('usr' = 0, y0 = ymin, x1 = 0, y1 = ymax, लंबाई = 0.1) तीर (x0 = xmin, y0 = 0, x1 = xmax, y1 = 0, लंबाई = 0.1)}   

यहां छवि विवरण दर्ज करें

Comments

Popular posts from this blog

runtime error - Cannot find an overload for op_subtraction when subtracting datetime from datetime in powershell -

javascript - Backbone pushState routes -

jsp - No mapping found for HTTP request with URI with annotation config Spring MVC and Jetty -