आर प्लॉट - रंग ढाल के साथ सामान्य वक्र

Question

मैं आर में रंगीन ढाल के साथ वक्र कैसे बना सकता हूं। इस लौ पर एक नज़र डालें।

ऐसा दिखना चाहिए। मैंने एक सामान्य वक्र बनाने की कोशिश की और फिर एक और सामान्य वक्र बनाने की कोशिश की, लेकिन तकनीकी रूप से बोलते हुए, आप सामान्य घटता के गुच्छा के साथ ऐसा आंकड़ा नहीं बना सकते हैं क्योंकि वे नीचे नहीं आते हैं और दोनों तरफ सही जगह पर छेड़छाड़ नहीं करेंगे। मैं आर में ऐसा आंकड़ा कैसे बना सकता हूं? कोई विचार?

Answer 1

सबसे अच्छा मैं अब तक ऐसा करने में सक्षम किया गया है है:

par(bg="black") 
plot(seq(0.15,0.85,by=0.01), 
     5*dbeta(seq(0.15,0.85,by=0.01),10,10), 
     type="l" , ylim=c(0,700)) # this just sets up the plotting framework. 

for(i in 1:200) { lines(x= seq(0.15,0.85,by=0.01), 
          y= i*dbeta(seq(0.15,0.85,by=0.01),10,10), 
        col= colorRampPalette(c("yellow", "orange", "red", "hotpink", 
          "violet", "blue", "lightblue", "lightgreen", "darkgreen", 
          "black"))(200)[i], 
         lwd=13) } 
par(bg="white") 

मैं की खोज की थी कि उस श्रृंखला की शुरुआत में एक "काला" रंग डाल समग्र परिणाम के लिए एक अतिरिक्त "चमक" जोड़ने , लेकिन मैं उस परिणाम को पोस्ट नहीं कर रहा हूं।

-----------------

यह है कि मैं क्या साथ शुरू किया था और उसके बाद लगातार सन्निकटन और तोड़ मरोड़ नीचे दिखाई दे रहे हैं है:

plot(seq(0.15,0.85,by=0.01), 5*dbeta(seq(0.15,0.85,by=0.01),10,10), 
      type="l" , ylim=c(0,100)) 
for(i in seq(0.2, 5)) { lines(seq(0.15,0.85,by=0.01), 
        i*5*dbeta(seq(0.15,0.85,by=0.01),10,10)) } 

रंग के लिए:

plot(seq(0.15,0.85,by=0.01), 5*dbeta(seq(0.15,0.85,by=0.01),10,10), type="l" , 
      ylim=c(0,130)) 
for(i in 1:35) {lines(seq(0.15,0.85,by=0.01), i*dbeta(seq(0.15,0.85,by=0.01), 10,10), 
          col=colorRampPalette(c("yellow", "orange", "red", "violet", 
             "blue", "lightblue", "lightgreen"))(35)[i], 
        lwd=3) } 

काले रंग की पृष्ठभूमि और सघन रंग और शीर्ष पर काला करने के लिए एक फीका के लिए:

par(bg = 'black') 
plot(seq(0.15,0.85,by=0.01), 5*dbeta(seq(0.15,0.85,by=0.01),10,10), type="l", 
      ylim=c(0,130)) 
for(i in 1:35) { lines(seq(0.15,0.85,by=0.01), i*dbeta(seq(0.15,0.85,by=0.01),10,10), 
          col=colorRampPalette(c("yellow", "orange", "red", "violet", 
           "blue", "lightblue", "lightgreen", "darkgreen", 
           "black")) (35)[i], 
          lwd=13) } 

मैंने देखा है कि काला पहलू को fading भी पर रेखा की चौड़ाई नियंत्रित पक्षों। मैं इसकी उम्मीद नहीं कर रहा था लेकिन यह एक वांछनीय विशेषता प्रतीत होता है। यहां पहचाना जाने वाला दूसरा पहलू पारदर्शिता जोड़ने की संभावना नहीं है। आर आरजीबी कार्यों में अल्फा तर्क है।

एक रंग ढूंढने के लिए उपयोगी चाल byname:

grep("purple", colors(), value=TRUE) 
[1] "mediumpurple" "mediumpurple1" "mediumpurple2" "mediumpurple3" "mediumpurple4" 
[6] "purple"  "purple1"  "purple2"  "purple3"  "purple4"  

आप यात्रा के साथ खेल रहे हैं, तो ढाल चिकनी बनाने के लिए तो आप भी आवश्यकता होगी ylim तर्क को समायोजित: चयन 0.5^9 * 0.5^9/बीटा (10,10) * [पुनरावृत्तियों], क्योंकि यह x = 0.5 पर अधिकतम होगा।