R 将图例放置在光栅图下方并去掉光栅图周围的矩形

我使用下面给出的三行代码从存储在文件中的数据绘制光栅图像。但是，我希望在图像下方生成一个图例（或彩色图表）。默认图例在右侧生成。你知道我如何在想要的地方得到传说吗。 第二，我得到了一个矩形的图像周围，我不需要在最终的绘图。请帮我解决这些问题

            temp_var<-raster(input)
    par(mar=c(0,0,0,0))
    plot(temp_var,legend=F,axes=FALSE)

---

temp\u var我在
plot（）
方法中为
光栅*
对象使用了矩形。我相信有办法摆脱它，但你不需要。我一直使用这种变通方法：

image(temp_var, axes=FALSE, xlab="", ylab="")

至于你的传奇，我相信你将不得不手动建立你的规格。尝试：

layout(matrix(c(1,1,1,1,1,2,2), 7, 1))
par(mar=c(0,0,0,0))
image(temp_var, axes=FALSE, xlab="", ylab="")
plot(c(0,1), c(0,1), type="n", xlab="", ylab="", axes=FALSE)
legend(0.1,0.9, legend=c(1:5), fill=rainbow(5), horiz=TRUE)

我在
plot（）
方法中为
光栅*
对象使用了矩形。我相信有办法摆脱它，但你不需要。我一直使用这种变通方法：

image(temp_var, axes=FALSE, xlab="", ylab="")

至于你的传奇，我相信你将不得不手动建立你的规格。尝试：

layout(matrix(c(1,1,1,1,1,2,2), 7, 1))
par(mar=c(0,0,0,0))
image(temp_var, axes=FALSE, xlab="", ylab="")
plot(c(0,1), c(0,1), type="n", xlab="", ylab="", axes=FALSE)
legend(0.1,0.9, legend=c(1:5), fill=rainbow(5), horiz=TRUE)

过去我使用colorbar.plot取得了一些成功。禁用plot（光栅（x））自动插入的图例（图例=FALSE），然后调用colorbar.plot（），即

过去我使用colorbar.plot取得了一些成功。禁用plot（光栅（x））自动插入的图例（图例=FALSE），然后调用colorbar.plot（），即

PS：这个问题是由一位同事发布的，他不小心使用了我的登录来发布这个问题。我不会在一小时后发帖然后再回答问题……PS：这个问题是由一个同事发帖的，他不小心用我的登录来发帖。我不会在一小时后发帖回答问题。。。