स्पप्लॉट() - color.key अच्छा लग रहा है

Question

मुझे डर है कि मेरे पास एक स्पप्लॉट() प्रश्न फिर से है।

मैं अपने स्पप्लॉट() में रंगों को पूर्ण मानों का प्रतिनिधित्व करने के लिए चाहता हूं, स्वचालित मान नहीं, क्योंकि स्पप्लॉट डिफ़ॉल्ट रूप से करता है।

मैं उस चर के बाहर एक कारक बनाकर प्राप्त करता हूं जिसे मैं आकर्षित करना चाहता हूं (कमांड कट() का उपयोग करके)। यह बहुत अच्छा काम करता है, लेकिन रंग-कुंजी बिल्कुल अच्छा नहीं दिखता है।

यह अपने आप को देखें:

library(sp) 

data(meuse.grid) 
gridded(meuse.grid) = ~x+y 

meuse.grid$random <- rnorm(nrow(meuse.grid), 7, 2) 
meuse.grid$random[meuse.grid$random < 0] <- 0 
meuse.grid$random[meuse.grid$random > 10] <- 10 
# making a factor out of meuse.grid$ random to have absolute values plotted 
meuse.grid$random <- cut(meuse.grid$random, seq(0, 10, 0.1)) 

spplot(meuse.grid, c("random"), col.regions = rainbow(100, start = 4/6, end = 1)) 

मैं कैसे सही पर color.key हो सकता है अच्छे लग रहे हैं - मैं में से प्रत्येक के चरम पर कम टिक और कम लेबल शायद सिर्फ एक लेबल के लिए (चाहते हैं color.key)

अग्रिम धन्यवाद!

[संपादित करें] स्पष्ट मूल्यों के साथ मेरा क्या मतलब है यह स्पष्ट करने के लिए: एक मानचित्र की कल्पना करें जहां मैं समुद्र की ऊंचाई प्रदर्शित करना चाहता हूं। सागर = 0 (जो न्यूनतम मूल्य है) हमेशा नीला प्रदर्शित किया जाना चाहिए। सागर = 10 (जो, उदाहरण के लिए, अधिकतम मूल्य है) हमेशा लाल प्रदर्शित किया जाना चाहिए। यहां तक ​​कि यदि मानचित्र पर प्रदर्शित क्षेत्रों पर कोई समुद्र नहीं है, तो यह नहीं बदला जाना चाहिए। मैं इसे अपने उदाहरण में कट() कमांड के साथ प्राप्त करता हूं। तो यह हिस्सा ठीक काम करता है।

यह मेरा प्रश्न है कि मेरा प्रश्न मुझे जो पसंद नहीं है वह दाईं ओर रंग का विवरण है। 100 टिक हैं और प्रत्येक टिक में एक लेबल है। मुझे कम टिक और कम लेबल चाहिए।

Answer 1

जाने का तरीका विशेषता colorkey का उपयोग कर रहा है। उदाहरण के लिए:

## labels 
labelat = c(1, 2, 3, 4, 5) 
labeltext = c("one", "two", "three", "four", "five") 

## plot 
spplot(meuse.grid, 
    c("random"), 
    col.regions = rainbow(100, start = 4/6, end = 1), 
    colorkey = list(
     labels=list(
      at = labelat, 
      labels = labeltext 
     ) 
    ) 
) 

Answer 2

सबसे पहले, यह बिल्कुल स्पष्ट नहीं है कि आप यहां क्या चाहते हैं। color.key को "अच्छा" बनाने के कई तरीके हैं और यह समझना है कि पहले स्पॉटप्लॉट में डेटा पारित किया जा रहा है और इसके बारे में क्या पूछा जा रहा है। कट() पूरी तरह से स्वरूपित अंतराल प्रदान कर रहा है (2.3, 5.34] जिसे एक अलग तरीके से संभालने की आवश्यकता होगी, साजिश में मार्जिन में वृद्धि, लेबल के लिए विशिष्ट प्रारूपण और अंतर इत्यादि। यह शायद आप नहीं हो सकते अंत में चाहते हैं।

शायद तुम सिर्फ पूर्णांक मूल्यों चाहते हैं, इनपुट मानों से गोल?

library(sp) 

data(meuse.grid) 
gridded(meuse.grid) = ~x+y 

meuse.grid$random <- rnorm(nrow(meuse.grid), 7, 2) 

मूल्यों दौर

(या TRUNC(), प्लस्तर लगाना(), फर्श() उन्हें।।।)

meuse.grid$rclass <- round(meuse.grid$random) 

spplot(meuse.grid, c("rclass"), col.regions = rainbow(100, start = 4/6, end = 1))