底部渐变图例

早些时候,我问过如何在基本图形(链接)中创建n个值的渐变。现在我想创建一个与之配套的渐变图例。我的理想是ggplot2的渐变图例:

下面是一些与我使用的代码类似的代码:

colfunc<-颜色调色板(c(“红色”、“蓝色”))
绘图(1:20,1:20,pch=19,cex=2,col=colfunc(20))

下面是一个如何使用grDevices中的rasterImagelayout分割屏幕,从第一原理构建图例的示例

布局(矩阵(1:2,ncol=2),宽度=c(2,1),高度=c(1,1))
绘图(1:20,1:20,pch=19,cex=2,col=colfunc(20))
图例_图像<-光栅(矩阵(colfunc(20),ncol=1))
绘图(c(0,2),c(0,1),类型=’n’,轴=F,xlab=”,ylab=”,主=’图例标题’)
文本(x=1.5,y=seq(0,1,l=5),标签=seq(0,1,l=5))
光栅图像(图例图像,0,0,1,1)

发表评论