2016-07-06 12 views
6

मैं एक choropleth मानचित्र के रंगों को उलट करने की कोशिश कर रहा हूँ। मैं पत्रक पैकेज और colorNumeric() समारोह का उपयोग कर रहा है, यहाँ कोड है कि पैलेट समारोह उत्पन्न करता है:रंग में विपरीत रंग संख्यात्मक()

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p, trans='reverse') 

किसी को है कैसे करना है:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p) 

मैं ऐसा ही कुछ करना चाहते हैं इस?

+1

आप एक प्रतिलिपि प्रस्तुत करने योग्य उदाहरण दे सकते हैं? – Alex

+0

करो 'दोस्त [लंबाई) (1)]' काम करता है? – Robert

+2

संभावित डुप्लिकेट [एक वेक्टर को रिवर्स कैसे करें?] (Http://stackoverflow.com/questions/18933441/how-to-reverse-order-a-vector) – Jota

उत्तर

5
एक उदाहरण के बिना

मैं अगर यह आपके कोड के साथ काम करता नहीं बता सकता, लेकिन इस प्रयास करें:

library(RColorBrewer) 
palette <- brewer.pal(5, "YlGnBu") 
previewColors(colorNumeric(palette = palette, domain = 1:5), values = 1:5) 

enter image description here

और रिवर्स:

palette_rev <- rev(brewer.pal(5, "YlGnBu")) 
previewColors(colorNumeric(palette = palette_rev ,domain = 1:5), values = 1:5) 

enter image description here

+0

यह अच्छी तरह से काम करता है! धन्यवाद। –

1

सुझाव दिया @Alex द्वारा यहांका उपयोग करके एक उदाहरण दिया गया है कुछ वास्तविक डेटा के साथ:

library(leaflet) 
library(mapview) 
library(RColorBrewer) 

clrs <- rev(brewer.pal(9, "YlGnBu")) 

pal <- colorNumeric(palette = clrs, domain = poppendorf[[5]][]) 

m <- leaflet() %>% addTiles() 

m %>% 
    addRasterImage(x = poppendorf[[5]], color = pal) 
+0

कोई अपराध इरादा नहीं है! जब भी मैं अभी भी कोशिश कर रहा था और अपना जवाब टाइप कर रहा था, तो आपने अपना जवाब प्रदान कर लिया होगा ... मैंने अपना स्वीकार करने के लिए मेरा संपादन किया है। – TimSalabim

0

कम से कम पत्रक में 1.1.0+ colorNumeric है एक वैकल्पिक तर्क "रिवर्स" है, तो आप सिर्फ कर सकते हैं:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p, reverse = TRUE) 
संबंधित मुद्दे