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