पार्टी के लिए देर हो चुकी है, लेकिन यहां एक किंवदंती असतत cutoffs का उपयोग कर पेश एक आधार संस्करण है। सोचा कि यह भविष्य के खोजकर्ताओं के लिए उपयोगी हो सकता है।
layout(matrix(1:2,nrow=1),widths=c(0.8,0.2))
colfunc <- colorRampPalette(c("white","black"))
par(mar=c(5.1,4.1,4.1,2.1))
plot(1:10,ann=FALSE,type="n")
grid()
points(1:10,col=colfunc(10),pch=19,cex=1.5)
xl <- 1
yb <- 1
xr <- 1.5
yt <- 2
par(mar=c(5.1,0.5,4.1,0.5))
plot(NA,type="n",ann=FALSE,xlim=c(1,2),ylim=c(1,2),xaxt="n",yaxt="n",bty="n")
rect(
xl,
head(seq(yb,yt,(yt-yb)/10),-1),
xr,
tail(seq(yb,yt,(yt-yb)/10),-1),
col=colfunc(10)
)
mtext(1:10,side=2,at=tail(seq(yb,yt,(yt-yb)/10),-1)-0.05,las=2,cex=0.7)
और एक उदाहरण छवि:

'plotrix में color.legend' कुछ – Dason
में देखना मैं कैसे' पैकेज में image.plot' 'क्षेत्रों पर विचार करेंगे प्रतीत हो रहा है यह करता है – mnel
@Dason color.legend यह बहुत ही अनैतिक है क्योंकि आपको चारों ओर घूमना पड़ता है क्योंकि इसे 4 समन्वय बिंदुओं की आवश्यकता होती है। मुझे यह पसंद है लेकिन इसे जल्दी से उपयोग करने का कोई तरीका नहीं मिला है। –