为光栅图像添加边框

Question

这是我使用 rasterImage:

创建的渐变颜色图例

colfunc <- colorRampPalette(c("red", "blue"))
legend_image <- as.raster(matrix(colfunc(20), ncol=1))
plot.new()
rasterImage(legend_image, 0.9, 0, 1, 1)     
lbsq <- seq.int(0, 1, l=5)                                  
axis(4, at=lbsq, pos=1, labels=F, col=0, col.ticks=1, tck=-.05) 
mtext(lbsq, 4, -.2, at=lbsq, las=2, cex=.6)

我想在颜色图例周围添加一个黑色细边框。我尝试在 rasterImage 中添加 lty = 1，但没有用。我的问题是如何为生成的图像添加黑色边框并调整其颜色和宽度。

Answer 1

使用rect()，下面加黑边。

colfunc <- colorRampPalette(c("red", "blue"))
legend_image <- as.raster(matrix(colfunc(20), ncol=1))
plot.new()
rect(par("usr")[1], par("usr")[3], par("usr")[2], par("usr")[4], col = "black")
rasterImage(legend_image, 0, 0, 1, 1)

Answer 2

您可以稍微增加页边距并使用 box()。

colfunc <- colorRampPalette(c("red", "blue"))
legend_image <- as.raster(matrix(colfunc(20), ncol=1))
plot.new()
rasterImage(legend_image, -.1, -.1, 1.1, 1.1)
box(lwd=3)

你也可以玩 pars。

png('test.png', 600, 400)

plot.new()
par(new=TRUE, mar=c(5.8, 40, 4, 4))
rasterImage(legend_image, .9, 0, 1.1, 1.1)
box(lwd=1)
par(mar=c(5.4, 4, 3.9, 4.8)+.1, new=TRUE)
plot(1:10)

dev.off()

请注意，这在使用绘图预览时相当不稳定 window，绝对 use png() or pdf() 而不是如图所示。

为光栅图像添加边框

Add border to rasterImage

graphics

r

raster

r-raster