r 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") 

讨论后，这是事实，把轴= 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