चिकनी स्कैटर

Question

का उपयोग करके उत्पादित रंग घनत्व स्कैटरप्लॉट के लिए आर किंवदंती smoothScatter() फ़ंक्शन का उपयोग करके मैं रंग में घनत्व स्कैटरप्लॉट का उत्पादन कर रहा हूं।

उदाहरण:

## A largish data set 
n <- 10000 
x1 <- matrix(rnorm(n), ncol = 2) 
x2 <- matrix(rnorm(n, mean = 3, sd = 1.5), ncol = 2) 
x <- rbind(x1, x2) 
oldpar <- par(mfrow = c(2, 2)) 
smoothScatter(x, nrpoints = 0) 

आउटपुट:

मुद्दा मैं कर रहा हूँ यह है कि मैं एक पौराणिक कथा/रंग पैमाने कि संख्यात्मक दृष्टि से सापेक्ष अंतर का वर्णन जोड़ने के बारे में अनिश्चित हूं विभिन्न रंगों के बीच। उदाहरण के लिए, यह बताने का कोई तरीका नहीं है कि उपरोक्त आकृति में सबसे गहरा नीला 2 गुना, 10 गुना या 100 गुना घना जितना हल्का नीला है, बिना किसी प्रकार के पौराणिक कथा या रंग के पैमाने के। क्या इस तरह के पैमाने को बनाने के लिए आवश्यक जानकारी को पुनः प्राप्त करने के लिए आर में कोई तरीका है, या इसमें निर्मित कुछ भी इस प्रकृति का रंग स्केल स्वचालित रूप से उत्पन्न कर सकता है?

Answer 1

यहाँ एक जवाब है कि fields::imageplot पर निर्भर करता है और par(mar) के साथ कुछ नगण्य तुम क्या चाहते हो और को देखने के लिए मार्जिन सही

fudgeit <- function(){ 
    xm <- get('xm', envir = parent.frame(1)) 
    ym <- get('ym', envir = parent.frame(1)) 
    z <- get('dens', envir = parent.frame(1)) 
    colramp <- get('colramp', parent.frame(1)) 
    fields::image.plot(xm,ym,z, col = colramp(256), legend.only = T, add =F) 
} 

par(mar = c(5,4,4,5) + .1) 
smoothScatter(x, nrpoints = 0, postPlotHook = fudgeit) 

आप image.plot साथ बेला के आसपास कर सकते हैं पाने के लिए है रंगों का प्रतिनिधित्व करने के बारे में एक विचार प्राप्त करने के लिए ?bkde2D और transformationsmoothScatter पर तर्क।