plotRGB添加标题

我想为plotRGB输出添加标题

#create random raster stack
r1 <- raster(nrow=5, ncol=5)
values(r1) <- 1:25

r2 <- r3 <- r1  
RGB_stack <- stack(r1, r2, r3)

我试着打开和关闭轴。我不知道还有什么能让这一切顺利进行

---

更新：根据下面的反馈，我发现

#Create an RGB image from the raster stack
plotRGB(RGB_stack, r = 1, g = 2, b = 3,
        axes=TRUE, main="My Title")

---

如果清除了以前可能关闭轴的绘图，则此功能将正常工作。然而，我仍然希望绘图是一个没有轴刻度的图像，只有一个标题

你的第一个猜测对我有用：

plotRGB(RGB_stack, r = 1, g = 2, b = 3,
        axes=TRUE, main="My Title")

经过讨论，将axes=FALSE也会删除标题，这是事实。作为一种解决方法，您可以尝试以白色打印轴和标签。我还添加了一个白色框

original_par <-par() #original par
par(col.axis="white",col.lab="white",tck=0)
plotRGB(RGB_stack, r = 1, g = 2, b = 3,
        axes=TRUE, main="My Title")
box(col="white")
par(original_par) # go back to original par

---

original\u par我也不想在我的绘图RBG绘图上使用轴

我破解了legend函数，在不更改par（）参数的情况下解决了这个问题，因为我正在制作一个多框布局

legend("top", legend = NA, title = expression(bold("(My title)")), bty = "n", cex = 1.3)

我也有同样的问题。legend hack对我不起作用，所以我在par（）中使用了graphics:：title函数

一种对我有效的方法是在plotRGB中设置
margins=TRUE
，如下所示：

plotRGB（RGB_堆栈，r=1，g=2，b=3，边距=TRUE，main=“我的标题”）

我不知道为什么，但它成功了。
您第一次尝试使用
main=“My Title”
为我生成了一个标题。好的-我正在想办法。如果我已经画了一些没有标题的东西，出于某种原因，这是行不通的。如果我在R studio中清除了绘图环境，那么这就行了@P Lapointe@Jota-你知道如何获得一个头衔，但没有轴上的记号吗？我只想把标题放在最后。非常感谢。要删除轴：
axes=FALSE
或
xaxt=“n”
和
yaxt=“n”
谢谢-这可以删除轴，但我也会丢失标题。这是我一直在努力解决的问题！仅删除勾号：
tck=0
在绘图调用内。在某些情况下，轴可能未完全隐藏在框中，设置更高的
lwd
在这种情况下使用：
box（col=“white”，lwd=3）
legend("top", legend = NA, title = expression(bold("(My title)")), bty = "n", cex = 1.3)

title(main = "My title", cex.main = 1.3)