31

早些时候我问过在基本图形（LINK）中创建 n 值的渐变。现在我想创建一个与之配套的渐变图例。我的理想是类似于ggplot2的渐变图例：

在此处输入图像描述

这是一些类似于我正在使用的代码：

colfunc <- colorRampPalette(c("red", "blue"))
plot(1:20, 1:20, pch = 19, cex=2, col = colfunc(20))

在此处输入图像描述

4

4 回答 4

35

这是一个示例，说明如何使用rasterImagefromgrDevices和layout拆分屏幕从第一原则构建图例

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)

在此处输入图像描述

于 2012-11-13T04:05:27.793 回答
23

派对迟到了，但这是一个使用离散截止值呈现传奇的基本版本。认为它可能对未来的搜索者有用。

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)

还有一个示例图像：

在此处输入图像描述

于 2012-11-15T00:19:51.167 回答
4

下面创建一个带有三个精确点的渐变色条，事先没有任何绘图，也不需要外星人包。希望有用：

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)
于 2019-10-01T16:54:47.257 回答
1

作为@mnel 出色答案的改进，受@Josh O'Brien 的另一个出色答案的启发，这里有一种在情节中显示渐变图例的方法。

colfunc <- colorRampPalette(c("red", "blue"))
legend_image <- as.raster(matrix(colfunc(20), ncol=1))

## layer 1, base plot
plot(1:20, 1:20, pch=19, cex=2, col=colfunc(20), main='
     Awesome gradient legend inside')

## layer 2, legend inside
op <- par(  ## set and store par
  fig=c(grconvertX(c(0, 10), from="user", to="ndc"),    ## set figure region
        grconvertY(c(4, 20.5), from="user", to="ndc")), 
  mar=c(1, 1, 1, 9.5),                                  ## set margins
  new=TRUE)                                ## set new for overplot w/ next plot

plot(c(0, 2), c(0, 1), type='n', axes=F, xlab='', ylab='')  ## ini plot2
rasterImage(legend_image, 0, 0, 1, 1)                       ## the gradient
lbsq <- seq.int(0, 1, l=5)                                  ## seq. for labels
axis(4, at=lbsq, pos=1, labels=F, col=0, col.ticks=1, tck=-.1)  ## axis ticks
mtext(sq, 4, -.5, at=lbsq, las=2, cex=.6)                      ## tick labels
mtext('diff', 3, -.125, cex=.6, adj=.1, font=2)              ## title
par(op)  ## reset par

在此处输入图像描述

于 2021-12-29T17:06:43.263 回答