blocks|key|220463|text|以下是如何使用grDevices和layout的rasterImage来拆分屏幕的示例，说明如何根据基本原则构建图例|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|220464|layout(matrix(1:2,ncol=2),+width+=+c(2,1),height+=+c(1,1))
plot(1:20,+1:20,+pch+=+19,+cex=2,+col+=+colfunc(20))

legend_image+<-+as.raster(matrix(colfunc(20),+ncol=1))
plot(c(0,2),c(0,1),type+=+'n',+axes+=+F,xlab+=+'',+ylab+=+'',+main+=+'legend+title')
text(x=1.5,+y+=+seq(0,1,l=5),+labels+=+seq(0,1,l=5))
rasterImage(legend_image,+0,+0,+1,1)|code-block|syntax|javascript|220465|​|220466|📷|atomic|220467|220468|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/8c673307042f52ed2682cac79fbf6b5f.png|imageAlt^0|7|9|H|6|O|B|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|Z|8|@$9|10|A|11|B|C]|$9|12|A|13|B|C]|$9|14|A|15|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|16|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|17|8|@]|D|@]|E|$]]|$1|M|3|N|5|O|7|18|8|@]|D|@$9|19|A|1A|1|1B]]|E|$]]|$1|P|3|L|5|6|7|1C|8|@]|D|@]|E|$]]|$1|Q|3|-4|5|6|7|1D|8|@]|D|@]|E|$]]]|R|$S|$5|T|U|V|E|$W|X|Y|-4]]]]

Here is an example of how to build a legend from first principles using <code>rasterImage</code> from <code>grDevices</code> and <code>layout</code> to split the screen

<pre><code>layout(matrix(1:2,ncol=2), width = c(2,1),height = c(1,1))
plot(1:20, 1:20, pch = 19, cex=2, col = colfunc(20))

legend_image &lt;- as.raster(matrix(colfunc(20), ncol=1))
plot(c(0,2),c(0,1),type = 'n', axes = F,xlab = '', ylab = '', main = 'legend title')
text(x=1.5, y = seq(0,1,l=5), labels = seq(0,1,l=5))
rasterImage(legend_image, 0, 0, 1,1)
</code></pre>

<img src="https://i.stack.imgur.com/EjU61.png" alt="enter image description here">

blocks|key|220545|text|晚到派对，但这里是一个基础版本，呈现了一个使用离散截止的传奇。我想这可能对未来的搜索者有用。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|220546|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)|code-block|syntax|javascript|220547|下面是一个示例图像：|220548|​|220549|📷|atomic|offset|length|220550|220551|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/18f0004485c76b8b77fb346dfbb1db0d.png|imageAlt^0|0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|Z|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|10|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|11|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|12|8|@]|9|@]|A|$]]|$1|K|3|L|5|M|7|13|8|@]|9|@$N|14|O|15|1|16]]|A|$]]|$1|P|3|J|5|6|7|17|8|@]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|R|$S|$5|T|U|V|A|$W|X|Y|-4]]]]

Late to the party, but here is a base version presenting a legend using discrete cutoffs. Thought it might be useful for future searchers.

<pre><code>layout(matrix(1:2,nrow=1),widths=c(0.8,0.2))
colfunc &lt;- 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 &lt;- 1
yb &lt;- 1
xr &lt;- 1.5
yt &lt;- 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)
</code></pre>

And an example image:

<img src="https://i.stack.imgur.com/nVA8C.png" alt="enter image description here">

blocks|key|438722|text|下面创建一个带有三个精点的渐变颜色条，事先没有任何绘图，也不需要任何外星人软件包。希望它是有用的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|438723|plot.new()
lgd_+=+rep(NA,+11)
lgd_[c(1,6,11)]+=+c(1,6,11)
legend(x+=+0.5,+y+=+0.5,
+++++++legend+=+lgd_,
+++++++fill+=+colorRampPalette(colors+=+c('black','red3','grey96'))(11),
+++++++border+=+NA,
+++++++y.intersp+=+0.5,
+++++++cex+=+2,+text.font+=+2)|code-block|syntax|javascript|438724|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

The following creates a gradient color bar with three pinpoints without any plot beforehand and no alien package is needed. Hope it is useful:

<pre><code>plot.new()
lgd_ = rep(NA, 11)
lgd_[c(1,6,11)] = c(1,6,11)
legend(x = 0.5, y = 0.5,
 legend = lgd_,
 fill = colorRampPalette(colors = c('black','red3','grey96'))(11),
 border = NA,
 y.intersp = 0.5,
 cex = 2, text.font = 2)
</code></pre>

Earlier I asked about creating a gradient of n values in base graphics (<a href="https://stackoverflow.com/questions/13353213/gradient-of-n-colors-ranging-from-color-1-and-color-2#comment18225943_13353213">LINK</a>). Now I'd like to create a gradient legend that goes with it. My ideal would be something like <code>ggplot2</code>'s gradient legends:

<img src="https://i.stack.imgur.com/tsP1X.png" alt="enter image description here">

Here's some code similar to what I'm working with:

<pre><code>colfunc &lt;- colorRampPalette(c("red", "blue"))
plot(1:20, 1:20, pch = 19, cex=2, col = colfunc(20))
</code></pre>

<img src="https://i.stack.imgur.com/MSamK.png" alt="enter image description here">

Gradient legend in base

之前我问过在基础图形()中创建n值的渐变。现在，我想创建一个与之配套的渐变图例。我的理想是类似于ggplot2的梯度图例：​​下面是一些与我正在使用的代码类似的代码：colfunc <- colorRampPalette(c("red", "blue"))plot(1:20, 1:20, pch = 19, cex=2...

问以底部为单位的渐变图例
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问以底部为单位的渐变图例EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问以底部为单位的渐变图例
EN