plotRGB添加标题

Question

我想为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, addfun="(title='Test title')")

我试图打开和关闭轴。我不确定还有什么其他方法可以使这项工作成功。

---

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

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

如果您清除了以前可能会关闭轴的图，则可以使用。但是我仍然希望该图是没有轴刻度的图像，只是一个标题。

Answer 1

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

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